Guten Abend!
Ich werd' dann mal mit etwas Code herausrücken...
Die dockbaren Forms haben folgenden Code (teilweise aus den Docking-Demos von Delphi 7 übernommen):
OnDockOver:
Delphi-Quellcode:
var
ARect: TRect;
begin
{ OnDockOver... }
Accept := (Source.Control is TCustomDockableForm); //Von TCustomDockableForm erben alle dockbaren Forms
{ Draw dock preview... }
if Accept and (ComputeDockingRect(ARect, Point(X, Y)) <> alNone) then //ComputeDockingRect berechnet, wie das Fenster gedockt werden soll und gibt ein TAlign zurück
Source.DockRect := ARect;
Hier reagiere ich auf die CM_DOCKCLIENT-Message:
Delphi-Quellcode:
var
Pt: TPoint;
DockType: TAlign;
ARect: TRect;
begin
{ Handle CM_DOCKCLIENT message }
if Message.DockSource.Control
is TCustomDockableForm
then
begin
{ Find out how to dock... }
Pt.x :=
Message.MousePos.x;
Pt.y :=
Message.MousePos.y;
DockType := ComputeDockingRect(ARect, Pt);
{ Dock manually to the right position... }
if (HostDockSite
is TPanel)
then
begin
Message.DockSource.Control.ManualDock(HostDockSite,
nil, DockType);
end;
end;
Die Eigenschaft DockSite des Dockhosts (= TPanel) ist auf true. Das Andocken funktioniert auch wunderbar.
Nur, wie bereits geschrieben, will ich ja den Zustand speichern und beim nächsten Programmstart wiederherstellen.
ManualDock nimmt ja keine Positionsangaben, sondern nur ein TAlign.
Danke für eure Hilfe,
Andreas