Всем привет, народ подскажите как установить текст для 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 надо задать именно этой вкладке, а не активной, что надо место ?????????????? |