VPF::Динамический объект - Форум программистов

Error202

Дата 25.9.2005, 09:09 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 195
Регистрация: 5.11.2004
Где: Moscow

Репутация: нет
Всего: нет

В PageControle динамически создаются TabSheetы, в которых также создаются WebBrowserы...

Код процедуры:

Код


procedure TForm1.CreateTabs(SheetName, URL: string);
var
 wb:TWebBrowser;
begin
inc(i);
with brows do
with TTabSheet.Create(Self) do
begin
PageControl:=brows;
Name:='TabSheet'+inttostr(i);
Caption:='';

wb:=TWebBrowser.Create(Self);
with wb do
begin
Align:=alClient;
Navigate(URL);
OnProgressChange:= ProgressCh;
end;
InsertControl(wb);

Caption:=SheetName;
Hint:=URL;
end;
end;

Код процедуры проверки загрузки страницы в браузере

Код


procedure TForm1.ProgressCh(ASender: TObject; Progress, ProgressMax: Integer);
begin
  pb.Min:=0;
  pb.Max:=ProgressMax;
  pb.Position:=Progress;
  if (ProgressMax = Progress) then
   begin
      ?????????????????????????????????????????????????
   end;
end;

Вместо вопросов хочу сделать изменение TabSheet Caption...
Как можно добраться до этого свойства? Т.е. структура такая...

PageControl
--- Page[0]
--- --- WebBrowser
--- Page[1]
--- --- WebBrowser

И при загрузке страницы в браузере должен заменяться caption его родительского TabSheet... Как узнать этот родительский TabSheet?

Rrader

Дата 25.9.2005, 09:17 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Код


(TWinControl(WebBrowser1).Parent As TTabSheet).Caption := 'Text';

--------------------

Let's do this quickly!
Rest in peace, Vit!

Error202

Дата 25.9.2005, 09:23 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 195
Регистрация: 5.11.2004
Где: Moscow

Репутация: нет
Всего: нет

Спасибо, но если Ваш код вставлять вместо вопросов, то WebBrowser1 - не определено...
Процедура ProgressCh - динамически приклеивается на OnProgressChange каждого браузера...
Через, например, ASender - я могу вяснить, какой браузер вызвал процедуру, чтобы потом его вписать в Ваш код вместо WebBrowser1?

Rrader

Дата 25.9.2005, 09:28 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Цитата

Через, например, ASender - я могу вяснить, какой браузер вызвал процедуру, чтобы потом его вписать в Ваш код вместо WebBrowser1?

Конечно.

Код


(TWinControl(ASender As TWebBrowser).Parent As TTabSheet).Caption := 'Text';

--------------------

Let's do this quickly!
Rest in peace, Vit!

Error202

Дата 25.9.2005, 09:39 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 195
Регистрация: 5.11.2004
Где: Moscow

Репутация: нет
Всего: нет

Спасибо большое!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »