Control in eine fremde Anwendung bringen???

[NeoXX]

Das mit dem "Umbiegen" des Parents funzt wunderbar. Ich kann jegliche Controls von meinem Fenster auf ein anderes umlegen. Ich kann dann auch alles mit dem jeweiligen Control machen, was ich auch in der eigenen Anwendung machen könnte.
Ok, ich bekomme keine Botschaften mehr vom Control, das wird in diesem Fall ja aber auch nicht gebraucht (wobei, ein Schließen-Knopf wäre sinnvoll ).

Mit dem folgenden Code kann man das Control bei Bedarf auch wieder zurückholen (solange das andere Fenster sammt dem Panel nicht geschlossen wurde):

Delphi-Quellcode:

var
  Hnd: HWnd = 0;

...

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (Hnd = 0) then Hnd := FindWindow(nil, 'Arbeitsplatz');
  if (Hnd <> 0) then
    Hnd := Windows.SetParent(Panel1.Handle, Hnd)
  else
    ShowMessage('Öffne mal den Arbeitsplatz und versuchs dann nochmal!');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Panel1.Color      := not Panel1.Color;
  Panel1.Font.Color := not Panel1.Color;
  Panel1.Caption    := Format('Parent: %d', [GetParent(Panel1.Handle)]);
end;

Übrigens, ich hasse Werbebanner