|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.03.2007, 07:38 | #1 |
Новичок
Джуниор
Регистрация: 10.03.2007
Сообщений: 1
|
TabSheet
Помогите с Tabsheet, не могу сделать TabSheet.capton при создании нового.
WebBrowser.LocationName - не предлогать пишет ошибку вот исходник: ТАК У МЕНЯ СОЗДАЕТСЯ ВКЛАДКА function TForm1.CreateTabBrowser( sURL, sCaption: string): TTabSheet; var ts: TTabSheet; WB: TWebbrowser; begin // Create a new TabSheet ts := TTabSheet.Create(PageControl); Result := ts; try // Assign TTabSheet Properties ts.PageControl := PageControl; ts.Parent := PageControl; ts.PageIndex := PageControl.ActivePageIndex + 1; // Create a TWebbrowser instance WB := TWebbrowser.Create(ts); // put TWebbrowser on TTabSheet TControl(WB).Parent := ts; // or: Ts.InsertControl(WB); // Assign Webbrowser Properties WB.Align := alClient; WB.Silent := True; WB.Visible := True; PageControl.ActivePage := ts; // Assign Webbrowser Events WB.OnProgressChange := WebBrowser1ProgressChange; WB.OnStatusTextChange := WebBrowser1StatusTextChange; WB.OnTitleChange := WebBrowser1TitleChange; WB.OnNewWindow2 := WebBrowser1NewWindow2; WB.OnCommandStateChange := WebBrowser1CommandStateChange; WB.FNavForward := False; WB.FNavBack := False; // Navigate to a URL if Trim(sURL) <> '' then begin WB.Navigate(sURL); WaitForBrowser(WB); end; except ts.Free; end; end; ТАК У МЕНЯ СОЗДАЕТСЯ НОВОЕ ОКНО procedure TForm1.WebBrowser1NewWindow2(Sender : TObject; var ppDisp: IDispatch; var Cancel: WordBool); var ts: TTabSheet; begin // if the Webbrowser Dokument is not completely loaded, it might be a popup if TWebbrowser(Sender).ReadyState <> READYSTATE_COMPLETE then begin ppDisp := nil; Cancel := True; end else begin ts:=CreateTabBrowser('',''); WaitForBrowser(TWebbrowser(ts.Contr ols[0])); ppdisp := (TWebbrowser(ts.Controls[0])).Application; WaitForBrowser(TWebbrowser(ts.Contr ols[0])); ЭТО ГЛАВНАЯ TABSHEET В НЕЙ ВСЁ НОРМАЛЬНО ПИШЕТСЯ procedure TForm1.WebBrowser1NavigateComplete2 (Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); var ts: TTabSheet; begin TabSheet.Caption := (WebBrowser1.Document as IHtmlDocument2).Title; TWebbrowser(Sender).FTitle := Text; bsSkinComboBox1.Text:=TWebBrowser(S ender).LocationURL; end; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как привязать ScrollBar к TabSheet в PageControl | fen | Компоненты Delphi | 11 | 10.04.2012 19:39 |