Programm in Panel starten

[taaktaak]

Jooooooooooo, war keine schlechte Idee...

Delphi-Quellcode:

procedure TfoTest3.Button1Click(Sender: TObject);
var aWnd : Hwnd;
    WPM  : TWindowPlacement;
    Rect : TRect;
begin
  aWnd:=Findwindow('notepad',nil);
  if aWnd<>0 then begin
    Windows.SetParent(awnd,panel1.Handle);

    WPM.Length:=SizeOf(WPM);
    GetWindowPlacement(awnd,@WPM);
    Rect.Top   :=0;
    Rect.Left  :=0;
    Rect.Right :=Panel1.Width;
    Rect.Bottom:=Panel1.Height;
    wpm.rcNormalPosition:=Rect;
    SetWindowPlacement(awnd,@WPM);
    end;

end;

Ein wenig umständlich, aber dafür erst einmal ein bißchen besser nachzuvollziehen. Nun müssten natürlich noch Verschieben, Minimieren und Maximieren ausgeschaltet werden...
Gruß Ralph