Dockpositionen speichern

[EConvertError]

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