[Delphi] TButton auf externes Formular/Anwendung

jkallup

Erfahrenes Mitglied
Hallo,

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

hier der Code:
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;
 
Zurück