Tab Register mit Close Button

[dtrace]

Problem gelöst

Und hier ist der Source Code für die dynamische Anpassung

Delphi-Quellcode:

 //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 else

      end;

  end;