Delphi-PRAXiS - Delphi Anwendung als MDI Child laufen lassen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi Anwendung als MDI Child laufen lassen (https://www.delphipraxis.net/11910-anwendung-als-mdi-child-laufen-lassen.html)

Anwendung als MDI Child laufen lassen

Hi Leute,

weiß jemand, ob es möglich ist jetwedes Programm, welches auf einem Rechner installiert ist, in der ClientArea in meinem Programm laufen zu lassen?

Grüßle Ben

Re: Anwendung als MDI Child laufen lassen

Hi, vielleicht schon längst erledigt, aber trotzdem ;)

Erstelle in Deiner Form ein Panel, in dem Du das "fremde Programm" einfangen willst,
ein Button, mit dem Du das Programmfenster Suchen lassen kannst (API).
Sollte es gefunden werden, wird es mit "Windows.SetParent()" ein Dein erstelltes Panel "einfangen"!
Beispiel:

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

progra : HWND;

begin

  progra:= FindWindow(nil, 'name des Fensters'); 

  windows.setparent(progra, panel1.handle);

  setwindowpos(progra, 0, 0, 0 , panel1.Width, panel1.Height, 0); //hiermit Position/Größe angeben

end

Viel Spass