Tabs Länge

[litsa]

Danke habe es jetzt so gelöst:

Delphi-Quellcode:

procedure TMain.FormShow(Sender: TObject);
begin
  MainPageControl.TabWidth :=  round(MainPageControl.Width / MainPageControl.PageCount)-10;
end;

procedure TMain.FormResize(Sender: TObject);
begin
  MainPageControl.TabWidth :=  round(MainPageControl.Width / MainPageControl.PageCount)-10;
end;