TButton auf externes Formular/Anwendung

Jens Kallup wrote:

Hallo,

versuche gerade vergeblich einen TButton auf meine Win32 GUI App.
zu packen.
Wie kann man es besser bewerkstelligen?
Danke
Jens

hier der Code:

procedure TestHwnd(w: integer); cdecl; export;
var b: TButton;
begin
ShowMessage('Handle: '+IntToStr(GetHWNDHandle(w)));

b := TButton.CreateParented(GetHwndHandle(w));
Windows.SetParent(b.Handle,GetHwndHandle(w));
b.Visible := true;
b.Height := 40;
b.Width := 100;
b.Top := 200;
b.Left := 20;
b.Caption := 'Buttontext';
end;

Was funktioniert daran nicht?

Selbst wenn Du den button angezeigt bekommst wird er allerdings nicht
funktionieren. Delphi controls sind abhängig von bestimmten
Verhaltensweisen des jeweiligen parents, und ein nicht-Delphi Container
liefert da einfach nicht die richtige Infrastruktur. Ein TButton
erwartet, z. B., daß sein Parent ihm WM_COMMAND-Meldungen als
CM_COMMAND zurückschickt. Wenn das nicht passiert "klickt" der Button
nicht (sein OnClick-Ereignis wird nicht ausgeführt). Auch das
Funktonieren von Sachen wir Shortcuts, oder Default- und Cancel-
Eingenschaften funktioniert in einer nicht-Delphi Umgebung nicht, da
die Meldungsschleife der Anwendung einfach nicht die notwendige
Zusatzbearbeitung von Key-Messages macht.



--
Peter Below