Ich werfe jetzt mal
TControl.ManualDock in den Raum.
Um eine Form zu einem PageControl hinzuzufügen genügt es:
Delphi-Quellcode:
procedure Foo( APageControl : TPageControl; AForm : TForm );
begin
AForm.ManualDock( APageControl, nil, alClient );
AForm.Visible := True;
end;
Dabei wird
TForm.Caption
automatisch als
TTabSheet.Caption
verwendet.
Ach ja, und die TabSheets brauche ich auch nicht erzeugen, denn diese werden durch das Docken automatisch erzeugt
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)