Hallo,
ich hänge bei meinem Plugin-System mal wieder an einer Kleinigkeit.
Mit nachfolgender Sequenz weise ich einer gestarteten Exe ein Panel als Parent zu.
Delphi-Quellcode:
Wnd := MainWindowHandle(ExeName);
if Wnd <>0 then
begin
Windows.SetParent(Wnd,aParent.Handle);
SetWindowLong(wnd,GWL_STYLE,(GetWindowLong(wnd,GWL_STYLE) AND NOT WS_CAPTION) or WS_CHILD);
WPM.Length:=SizeOf(WPM);
GetWindowPlacement(Wnd,@WPM);
WPM.ShowCmd:=SW_ShowMaximized;
WPM.rcNormalPosition:=Classes.Rect(0,0,aParent.Width,aParent.Height);
SetWindowPlacement(Wnd,@WPM);
end;
MainWindowHandle ist eine eigene Funktion und bestimmt das
Handle des sichtbaren Fensters in meinem Plugin.
Das funktioniert auch.
Allerdings sind alle Komponenten im Fenster des eingeblendeten Plugin readonly.
Das Fenster kann keinen Focus erhalten.
Was mache ich falsch?
Mit Gruß
Peter