Form Schliesen mit AnchorDocking

[RUB]

Hallo,

ich erzeuge mehrere Fenster mit;

Code: Alles auswählen

Form := TForm1.Create(Application);
  Form.loadDir(Dir1, Dir2);
  //Form.Show;
  DockMaster.MakeDockable(Form,true,true);
  DockMaster.ManualDock(DockMaster.GetAnchorSite(Form),Form2,alClient);

Aber wie gebe ich sie wieder frei wenn das Fenster geschlossen wird?
Im OnClose habe ich folgendes eingefügt.

Code: Alles auswählen

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: boolean);
begin
 CanClose:=True;
end;   
 
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  CloseAction:=caFree;
end;

Leider wird OnClose nur beim Beenden des Programms und nicht beim Schießen des Fensters Ausgeführt (=> die Form wird nur versteckt; Hide).
Wenn ich das Docking deaktiviere funktionierte es.
Wie kann ich das am besten lösen?

mit freundlichen Grüßen
Bernd