Hallo!
Ik wil graag een combobox-control toevoegen aan mijn progje m.b.v. de Win32 API routines. Hiervoor heb ik de Win32 API help erop nageslagen en deze toegepast in de (onderstaande) code.
De combobox verschijnt op het scherm en de items ziten er ook in, maar... als ik op de drop-down button click, dan krijg ik helemaal geen drop-down-list...
Kan mij misschien iemand helpen hoe ik die drop-down-list toch te zien krijg???
Alvast hardstikke bedankt !
Ik heb de onderstaande code gebruikt...
Ik wil graag een combobox-control toevoegen aan mijn progje m.b.v. de Win32 API routines. Hiervoor heb ik de Win32 API help erop nageslagen en deze toegepast in de (onderstaande) code.
De combobox verschijnt op het scherm en de items ziten er ook in, maar... als ik op de drop-down button click, dan krijg ik helemaal geen drop-down-list...
Kan mij misschien iemand helpen hoe ik die drop-down-list toch te zien krijg???
Alvast hardstikke bedankt !
Ik heb de onderstaande code gebruikt...
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| var
H: THandle;
Hwnd: THandle;
Font: HFont;
procedure CreateComboBox;
begin
Font := GetStockObject (ANSI_VAR_FONT);
H := CreateWindow ('COMBOBOX', '', CBS_DROPDOWNLIST or WS_CHILD or
WS_VISIBLE or WS_VSCROLL, 10, 10, 100, 25, Hwnd, 0, hInstance, nil);
SendMessage (H, WM_SETFONT, Font, 0);
SendMessage (H, CB_ADDSTRING, 0, integer (PChar ('Test')));
SendMessage (H, CB_ADDSTRING, 0, integer (PChar ('Hallo')));
SendMessage (H, CB_ADDSTRING, 0, integer (PChar ('Text')));
SendMessage (H, CB_SETCURSEL, 1, 0);
end; |