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

[beemoto]

Помогите правильно закрывать вкладки плиззз
закрываю так:

if PageControl1.ActivePageIndex > 0 then
  begin
    if PageControl1.ActivePage.Controls[0] is TWebbrowser then
    begin
      (TWebbrowser(PageControl1.ActivePage.Controls[0])).Free;
      webbrowser1 := nil;
      PageControl1.ActivePage.Free;
    end;
  end;

но глючит, немогу понять в чем дело...

[Stilet]

А чего у меня нормательно работает?

[beemoto]

Stilet, ты хоть сам понял что написал!? xD
он у меня незакрывает первую вкладку и иногда выдает ошибки

[Stilet]

ты хоть сам понял что написал!?

А ты как думаешь, я не проверял?

он у меня незакрывает первую вкладку

Хы... Ну дык ты же сам ему это запретил написав:

if PageControl1.ActivePageIndex > 0 then

и иногда выдает ошибки

Ничего такого не видел. Работает стабильно.

[DomiNick]

Хм... А у меня вообще не работает...

Хотя если на каждой странице поместить по TWebbrowser, тогда перестаёт вылетать...
Кстати почему там " webbrowser1:=nil; " - может надо тот, что на вкладке?

Да и вообще не понятно - просто нажимаешь на одну из неактивных вкладок и она закрывается? о_0
Или я не в тот обработчик это всё запихал?

[beemoto]

я этот код выдрал с одного исходника,
ну мне надо немного другой код:
чтоб он закрывал активную вкладку

[DomiNick]

Я понял... В коде есть строчка:

if PageControl1.ActivePage.Controls[0] is TWebbrowser then

и если на вкладке вообще нету компонентов, то прога вылетает...

Так лучше:

If PageControl1.ActivePageIndex>0 Then
      Begin
      If PageControl1.ActivePage.ControlCount>0 Then
            If PageControl1.ActivePage.Controls[0] Is TWebBrowser Then
                  Begin
                  (TWebBrowser(PageControl1.ActivePage.Controls[0])).Free;
                  WebBrowser1:=Nil;
                  PageControl1.ActivePage.Free;
                  End;
      End;

хотя надо подумать ещё над этим...

Как закрывать активную ща подумаю...



<off>
Кстати мне было всегда интересно, как в браузерах сделали кнопочки "Закрыть" для каждой вкладки... Это другой компонент или они как-то дополнили TPageControl..?
</off>

[Stilet]

Хотя если на каждой странице поместить по TWebbrowser, тогда перестаёт вылетать...

Ах вот почему у меня все работало...
Странно, я думал автор позаботился о том что на каждой вкладке полюбому должен быть браузер.

как в браузерах сделали кнопочки

Не так уж и трудно написать свой TPageControl. или взять из многочисленной разновидности существующих с наворотами.

[DomiNick]

Я так и не понял чего делаем этой строчкой:

WebBrowser1:=Nil;

Почему всегда именно 1-й браузер?

ну мне надо немного другой код:
чтоб он закрывал активную вкладку

И для чего всё так сложно? Может просто уничтожать вкладку?

PageControl1.ActivePage.Destroy;

Можно сделать чтоб при переходе на другую вкладку предыдущая уничтожалась:

Var PageOld, PageNew: TTabSheet;

...

Procedure TForm1.FormCreate(Sender: TObject);
Begin
PageOld:=PageControl1.ActivePage; // запоминаем первую активную вкладку
End;

Procedure TForm1.PageControl1Change(Sender: TObject);
Begin
PageNew:=PageControl1.ActivePage; // запоминаем вкладку на которую нажали
PageOld.Destroy; // уничтожаем предыдущую активную вкладку
PageControl1.ActivePage:=PageNew; // активируем вкладку на которую нажали
PageOld:=PageNew; // запоминаем новую активную вкладку
End;

Но это как-то не совсем удобно...

Не так уж и трудно написать свой TPageControl

Вот этот код как раз бы неплохо подошел для кнопочки "Закрыть" (только наоборот переделать), но я пока не умею дополнять компоненты...

[Levsha100]

Было бы неплохо написать свой компонент(на основе PageControl и браузера) и не париться или взять готовый.