Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 10.03.2007, 08:38   #1
one
Новичок
Джуниор
 
Регистрация: 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;
one вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как привязать ScrollBar к TabSheet в PageControl fen Компоненты Delphi 11 10.04.2012 19:39