VPF::Помогите с текстом для caption tabsheeta

Liberum

Дата 2.6.2012, 13:19 (ссылка)

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

Загрузка ...

Новичок

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

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

Всем привет, народ подскажите как установить текст для caption в tabsheet, если pagecontrol1 находится на форме, а webbrowser1 (с которого надо взять title для caption) находится на фрейме. Т.е. после загрузки страницы в webbrowser надо взять у него title и записать в caption tabsheeta
Вот создаю вкладку:

Код


function TForm1.NewBrows(s: string): TWebBrowser;
var ts:TTabSheet;
    fr:TFrame2;
begin
ts:=TTabSheet.Create(PageControl1);
ts.PageControl:=PageControl1;
ts.Parent:=PageControl1;
PageControl1.ActivePage:=ts;
fr:=TFrame2.Create(ts);
fr.Align:=alClient;
fr.Parent:=ts;
Result:=fr.WebBrowser1;
end;

а потом указываю для webbrowsera

Код


procedure TFrame2.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
???????????????:=((WebBrowser1.document as IHTMLDocument2).title);
end;

Как указать что caption надо задать именно этой вкладке, а не активной, что надо место ??????????????

Liberum

Дата 2.6.2012, 18:59 (ссылка)

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

Загрузка ...

Новичок

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

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

Еще раз сам спросил - сам отвечай, вот

Код


(((TWinControl(aSender as TWebBrowser).Parent).Parent) as TTabSheet).Caption :=((WebBrowser1.document as IHTMLDocument2).title);

Чучмек

Дата 2.6.2012, 20:33 (ссылка)

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

Загрузка ...

НЭТ БИЛЭТ

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

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

Ну это лишнее

Код


((Sender as tWinControl).Parent.Parent as tTabSheet).Caption:=

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

умную мысль держи при себе, а дурной - поделись с другими

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