Tab Register mit Close Button

[dtrace]

Funktioniert auch wunderbar
habe somit alle Probleme gelöst.

Hier der SourceCode für das schließen:

Delphi-Quellcode:

procedure TFMain.closeTab;
var
  WB: TEmbeddedWB;
  j: Integer;
  k: Integer;
begin
  WB := GetcurrentWB;
  Rect2 := Tab.TabRect(Tab.ActivePageIndex);
  WB.Destroy;
  //Closebutton zerstören
  with Tab do
  begin
    if ControlCount > 0 then
    begin
      j := Tab.ActivePageIndex;
      if Controls[j] is TSpeedbutton then
      begin
        TSpeedbutton(Controls[j]).Destroy;
      end;
    end;

  end;
  tab.Pages[tab.ActivePageIndex].Destroy;     //Tab zerstören


  //Alle Controlls anpassen
  for k := 0 to tab.PageCount - 1 do
  begin
    Rect2 := Tab.TabRect(k);
    with Tab do
      if ControlCount > 0 then
      begin
        j := k;
        if Controls[j] is TSpeedbutton then
        begin
          TSpeedbutton(Controls[j]).top := Rect2.Top + 2;
          TSpeedbutton(Controls[j]).left := Rect2.Right - 10;
        end;
      end;

  end;
end;