Form nach SetParent wieder lösen

[marabu]

Hallo padavan,

wenn es nur um das Einfangen und Freigeben geht, dann würde ich das so machen:

Delphi-Quellcode:

procedure TMainForm.CaptureButtonClick(Sender: TObject);
begin
  with FloatingForm do
  if Assigned(Parent)
    then Parent := nil
    else Parent := self;
end;

Grüße vom marabu