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