крестик на вкладке в page control

[admin-one]

Я по совету специалистов этого форума поменял простой контрол на альпа контрол там нашел функцию для добавления крестика на вкладки и все хорошо но когда закрываю вкладку она закрывается но при этом сразу новая появляется .....как это исправить ? я понял что дело в коде так как я динамко создаю вкладки может что тут нужно исправить ?

procedure TfrmMyBrowser.sPageControlChange(Sender: TObject);
var
  CurrentWB: TWebbrowser; tab:TsTabSheet; wl,wb: TWebBrowser;
begin
  // Set Toolbutton State Back Forward
  ToolbtnBack.Enabled := False;
  ToolBtnForward.Enabled := False;

  with sPageControl do
    if ActivePage.ControlCount > 0 then
      if ActivePage.Controls[0] is TWebbrowser then
      begin
        CurrentWB := TWebbrowser(ActivePage.Controls[0]);
        WB_SetFocus(CurrentWB);
        ToolbtnBack.Enabled := CurrentWB.FNavBack;
        ToolBtnForward.Enabled := CurrentWB.FNavForward;
        edURL.Text := CurrentWB.LocationURL;
        Self.Caption := TWebbrowser(CurrentWB).FTitle;
       
      end;

  if sPageControl.ActivePage.Caption = 'Document Info' then
    PageControlInfosChange(nil);

    
     if sPageControl.TabIndex=sPageControl.PageCount-1 then begin
    tab:=TsTabSheet.Create(sPageControl);
    tab.PageControl:=sPageControl;
    tab.Caption:=blank;
    tab.PageIndex:=sPageControl.PageCount-2;
    sPageControl.TabIndex:=tab.PageIndex;
    wl:=TWebBrowser(WebBrowser1);
    wb:=TWebBrowser.Create(tab);
    with TWinControl(wb) do begin
      parent:=tab; // веб браузер активизация
      // загрузка параметров
      visible:=true; width:=wl.Width; height:=wl.Height; left:=wl.Left; top:=wl.Top;
      Align:=wl.Align;
        with TFrame5.Create(tab) do begin
   Align:=alClient;
   Parent:=tab;
   Show;

  end; 
end;
  end;
end;

заранее спасибо за ответы )

[admin-one]

что никто не знает ? хоть кто то помогите исправить

[Stilet]

Я точно не знаю, поскольку сторонние компоненты не использую.
Однако могу тебе кое-что посоветовать
в обработчике клика по крестику пропиши

sPageControl.tag:=-1;

А в этом коде

if (sPageControl.TabIndex=sPageControl.PageCount-1) and(sPageControl.tag<>-1;) then begin
sPageControl.tag:=0;
...

Т.е. поставить флаг на закрытие.

[admin-one]

Сообщение от Stilet

в обработчике клика по крестику пропиши

sPageControl.tag:=-1;

а как мне сделать клик по крестику ? там такой функции нет ! в spagecontrol есть такая функция showclosebtns ее надо поставить в true тогда появится крестик.......

[Stilet]

там такой функции нет !

Что неужели нет ничего такого в событиях?
Ану поищи вниматочнее
Вся проблема в том, что после закрытия срабатывает событие смены вкладки, соответственно твой код.
Ладно предложу по другому: Запоминай кол-во вкладок в sPageControl.tag, а в событии так:

if (sPageControl.TabIndex=sPageControl.PageCount-1) and(sPageControl.PageCount<>sPageControl.tag;) then begin
sPageControl.tag:=sPageControl.PageCount;
...

[admin-one]

так вкладка удаляется но новая не появляется ........или я что то сделал не так

[Stilet]

так вкладка удаляется но новая не появляется

и

но при этом сразу новая появляется .....как это исправить ?

Это психологическая рекурсивная атака на моск форумчан?
Учти - у многих от такого стоит на телепаторах капча, так что но пассаран.

[admin-one]

я тебя что то не понял ........смотри при обычно моем коде при закрытии вкладка закрывается и приэтом на ее месте появляеся новоя ( тоесть срабатывает мой код ) потом ты мне посоветовал поменять
if sPageControl.TabIndex=sPageControl. PageCount-1 then begin
на
if (sPageControl.TabIndex=sPageControl .PageCount-1) and(sPageControl.PageCount<>sPageCo ntrol.tag then begin
sPageControl.tag:=sPageControl.Page Count;
(если я правельно понял ) так вкладка закрывается но потом создать новую не получается
как сделать чтоб при закрытии вкладки она закрывалась но при этом чтоб я мог и создовать новые

[Stilet]

но потом создать новую не получается

Ну так поставь точку прерывания на то событие и посмотри почему не создается.

[admin-one]

Сообщение от Stilet

Ну так поставь точку прерывания на то событие

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

тебе может со стороны показаться что за м*дак не понимает такого но прошу объяснить что и как сделать

объясни пожалуйста