Versuch doch mal folgendes:
Ein PageControl auf die Form klatschen und
TPageControl.DockSite
auf
True
.
Dann irgendwo einen Button, der beim Klick dann das hier ausführt:
Delphi-Quellcode:
procedure TForm1.Button1Click( Sender: TObject );
var
LPanel: TPanel;
begin
LPanel := TPanel.Create( Self );
LPanel.ShowCaption := False;
LPanel.Caption := 'Test';
LPanel.DragKind := TDragKind.dkDock;
LPanel.DragMode := TDragMode.dmAutomatic;
// Damit kann man rumspielen und ein eigenes DockForm unterjubeln
LPanel.FloatingDockSiteClass := TCustomDockForm;
// direkt ans PageControl docken
// LPanel.ManualDock( PageControl1, nil, alClient );
// Irgendwohin frei schwebend klatschen lassen
LPanel.ManualFloat( Self.ClientRect );
end;
Die Form die dann erscheint verschieb mal in Richtung des PageControls. Irgendwann dockt die dann dort an
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)