Tabs Länge

[litsa]

Hallo
sorry für den Titel aber mir is nichts anderes eingefallen!

hätte mal 'ne Frage (und hoffe ich formuliere sie deutlich genug): ist es möglich die Tabs (bzw. Buttons) der Pages in einem PageControl so darzustellen, dass die den ganzen oberen Rand einnehmen? Also wenn ich z.B. nur ein Tab habe soll dieser die ganze Länge des PageControl einnehmen und nicht abhängig vom Namen (besser gesagt Caption) sein.

Im OI habe ich nichts finden können (hab auch die JvPageControl versucht). Vielleicht OwnerDraw und dann selbst??

..danke

[marabu]

Hallo Evangelia,

du kannst die Eigenschaft TabWidth des PageControls so berechnen, dass die Breite der Komponente gleichmäßig auf alle Tabs verteilt wird.

Grüße vom marabu

[litsa]

Hallo und danke für die Antwort..
hab das schon versucht aber beim ändern der form-größe sieht das wieder unschön aus!

[SirThornberry]

dann müsstest du im OnResize der Form das neu berechnen.

[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;