Programm in Panel starten

[Die Muhkuh]

Nein.

Aber Du kannst es, wie Detlef sagte, per SetParent machen. Und wenn Du hier in der DP danach suchst, dürftest Du auch findig werden, den ich meine hier schon mal etwas davon gesehen zu haben.

[DeddyH]

Ist doch nicht so schwer:

Delphi-Quellcode:

aWnd := FindWindow('notepad',nil);
if aWnd <> 0 then //*grmpf*, das muss 0 heißen
  Windows.SetParent(aWnd,Panel1.Handle); //besser Windows davorschreiben

Allerdings kannst Du das Fenster dann innerhalb Deines Panels immer noch hin und herschieben.

[Larsi]

wass mus ich als variable für awnd einbindne?

[DeddyH]

grzgrmbl? Kannst Du das nochmal in Deutsch fragen?

[Die Muhkuh]

Ich übersetze mal:

Er sucht den Datentyp von aWnd, welcher HWND ist.

[taaktaak]

hihihihi

var aWnd : HWnd;

[DeddyH]

Mal ein Tipp: in der Hilfe unter FindWindow nachsehen, welchen Datentyp diese Funktion wohl zurückgibt.

[Helmi]

Danke DeddyH!
Hat funktioniert!

[taaktaak]

Moin, Moin.

Ich spiele mal gerade so ein bißchen mit. Nun müßte Notepad natürlich exakt in das Panel eingepasst werden (ist natürlich nur sinnvoll, wenn das Panel eine Mindestgröße hat) - ist Get/SetWindwoPlacement da der richtige Ansatz??

[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