Hallo,

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

hier der Code:
Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14

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;