Закрытие вкладки

[beemoto]

надо зделать чтоб если вкладки ВСЕ закрыты, то открыть пустую вкладку
пробовал так:

if pagecontrol1.PageCount < 1 then
CreateTabBrowser('about:blank','about:blank');

но ничего непроисходит...

[S@fer]

я делал так

PageControl1.ActivePage.Destroy; //Удаляет активную вкладку
  if PageControl1.PageCount=0 then Close; // Закрывает окно если нет вкладок

[Stilet]

CreateTabBrowser

А что эта процедура делает?

[beemoto]

это функция открывает новую вкладку с встреным веббраузером вот код:

function Tform1.CreateTabBrowser(sURL: string; sCaption: string):TTabSheet;
var
  ts: TTabSheet;
  WB: TWebbrowser;
begin
 ts:= TTabSheet.Create(PageControl1); //ñîçäàåì íîâóþ âêëàäêó
 Result:=ts;
     try
     //ïðèñâàåâàåì çíà÷åíèÿ Pagecontrol'ó
    ts.PageControl:=PageControl1 ;
    ts.Parent := PageControl1;
    ts.Caption := sCaption;
    //ïðèñâàåâûåì çíà÷åíèÿ Webbrowser'ó
    WB := TWebbrowser.Create(ts);

    TControl(WB).Parent := ts;
        WB.OnNewWindow2 := WebBrowser1NewWindow2;
        wb.OnProgressChange:=WebBrowser1ProgressChange;

    WB.Align := alClient;
    WB.Silent := True;
    WB.Visible := True;

    PageControl1.ActivePage := ts;

           if Trim(sURL) <> '' then//åñëè óðë íå ïóñòîé òî ïåðåõîäèì
    begin
      WB.Navigate(sURL);
      WaitForBrowser(WB);
    end;
     except
       ts.Free; //îñâîáîæäàåì Pagecontrol
     end;
end;

S@fer, это понятно, но вот я пишу:

if pagecontrol1.PageCount=0 then
CreateTabBrowser('about:blank','about:blank')
else
PageControl1.ActivePage.Destroy;

но нереагирует......

[S@fer]

if pagecontrol1.PageCount=0 then
CreateTabBrowser('about:blank','about:blank')
else
PageControl1.ActivePage.Destroy;

а где вы это пишите? в каком событии?

[beemoto]

S@fer,в онклик кнопки

[S@fer]

а вот так будет работать ?

if pagecontrol1.PageCount=0 then
Showmessage('Вкладок нет')
else
PageControl1.ActivePage.Destroy;

И еще попробуйте разделить процедуры. сначала сделать удаление, а потом проверку на открытые вкладки.

PageControl1.ActivePage.Destroy;

if pagecontrol1.PageCount=0 then
CreateTabBrowser('about:blank','about:blank');

Просто нажав на кнопку программа у вас либо удалит, либо создаст вкладку. (т.е. нужно нажимать 2 раза). а этим способом сначала идет удаление а потом проверка.

[beemoto]

S@fer, ксожалению - нет
нехочет =(

[DomiNick]

А почему функция? Для чего-то необходимо возвращать созданную вкладку?
А "OnNewWindow2" и "OnProgressChange" тоже потребуются?

Я бы так делал:

...

      Public
            { Public declarations }
            Procedure WBNewWindow(Sender: TObject; Var ppDisp: IDispatch; Var Cancel: WordBool);
            Procedure WBProgressChange(Sender: TObject; Progress, ProgressMax: Integer);
            Procedure CreateBrowserTab(sURL: String; sCaption: String);
      End;

...

Procedure TForm1.FormCreate(Sender: TObject);
Begin
Button1.Caption:='New Tab';
Button2.Caption:='First Tab';
Button3.Caption:='Close Active Tab';
End;

Procedure TForm1.CreateBrowserTab(sURL: String; sCaption: String);
Var TS: TTabSheet; WB: TWebBrowser;
Begin
TS:=TTabSheet.Create(PageControl1);
Try
      TS.PageControl:=PageControl1;
      TS.Parent:=PageControl1;
      PageControl1.ActivePage:=TS;
      TS.Caption:=sCaption;
      WB:=TWebBrowser.Create(TS);
      TControl(WB).Parent:=TS;
      WB.OnNewWindow2:=WBNewWindow;
      WB.OnProgressChange:=WBProgressChange;
      WB.Align:=alClient;
      WB.Silent:=True;
      If Trim(sURL)<>'' Then
            Begin
            WB.Navigate(sURL);
            End;
Except
      TS.Free;
      End;
End;

Procedure TForm1.WBNewWindow(Sender: TObject; Var ppDisp: IDispatch; Var Cancel: WordBool);
Begin
CreateBrowserTab('http://ya.ru', ' WBNewWindow '); // Не знаю как перехватывать адрес и запрещать открывать новое окно эксплорером...
End;

Procedure TForm1.WBProgressChange(Sender: TObject; Progress, ProgressMax: Integer);
Begin
// Не знаю что тут нужно обрабатывать
End;

Procedure TForm1.Button1Click(Sender: TObject);
Begin
CreateBrowserTab('http://ya.ru', ' Яндекс!  О_О ');
End;

Procedure TForm1.Button2Click(Sender: TObject);
Begin
If PageControl1.PageCount<1 Then
      Begin
      CreateBrowserTab('about:blank', 'about:blank');
      End;
End;

Procedure TForm1.Button3Click(Sender: TObject);
Begin
PageControl1.ActivePage.Free;
End;

Переделал в процедуру и переименовал, чтоб с оригиналом не путалось...


P.S. Почему-то с процедурой "Button2Click" перестаёт форматироваться код...

[beemoto]

тогда, подскажите что здесь нетак!?

procedure TForm1.WebBrowser1NewWindow2(ASender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
ts: TTabSheet;
begin
if TWebBrowser(asender).ReadyState <> READYSTATE_COMPLETE then
  begin
    ppDisp := nil;
    Cancel := True;
  end else
begin
ts:=CreateBrowserTab('','Íîâàÿ âêëàäêà');
    WaitForBrowser(TWebbrowser(ts.Controls[0]));
    ppdisp := (TWebbrowser(ts.Controls[0])).Application;
    WaitForBrowser(TWebbrowser(ts.Controls[0]));
end;

ругается на строчку ts:=CreateBrowserTab('','Новая вкладка');
пишет: Несовместимые типы: ТТабшеет и Процедура

а всё заменил WBNewWindow на WebBrowser1NewWindow2
и соединил 2 кнопки:

PageControl1.ActivePage.Free;
If PageControl1.PageCount<1 Then
      Begin
      CreateBrowserTab('about:blank', 'about:blank');
      End;

но при закрытии всёравно ругается...