Tpagecontrol innenabstand bestimmen?

[Chefx]

zur zeit trubo delphi (hab es geändert ), es funktioniert jetzt
danke an alle

[p80286]

bevor ich was neues aufmache kann man diesen Thread auch aufwärmen.
Ich habe ein ähnliches Problem.Mit zwei Pagecontrols auf einem Form, ergibt sich ein nettes "Treppendesign". Alignwithmargins (margin=0) hat mich meinem Ziel nicht näher gebracht,
ich will keine Treppen!
(padding fällt flach)
Align steht auf bottom bzw client.

Wo kann ich da noch drehen?

Gruß
K-H

[Bummi]

tsFlatButtons minimiert den "Fehler"
ansonsten align alnone händisch positioneieren und Anchors setzen?

[p80286]

Nein keine Chance, da bleibt noch ein Rand:

Delphi-Quellcode:

on_resize:
begin
  M_Ausz.Left:=0;
  M_Ausz.Top:=0;
  M_Ausz.Width:=TS_Ausz.Width;
  M_Ausz.Height:=TS_Ausz.Height;
end;

M_Ausz ist ein Memo, TS_Ausz ein TabSheet

Mit Clientwidt/ClientHeight ist es übrigens das gleiche Ergebnis.
Ankers und Align ist none, margin =0

Gruß
K-H

[Bummi]

um bei Deinem Beispiel, zu bleiben, ich hatte eher so gemeint

Delphi-Quellcode:

procedure TForm1.PageControl1Resize(Sender: TObject);
begin
  PageControl2.Left := -2;
  PageControl2.Top := -2;
  PageControl2.Width := Tabsheet1.Width + 5;
  PageControl2.Height := Tabsheet1.Height + 5


end;

[bernerbaer]

evtl hat hier Stackoverflow die Lösung für dich

[Bummi]

@bernerbaer

war zwar nicht mein Problem, aber