Не отображаются Item ы в СomboBox

← →
Delphi_is_cool © (2005-12-03 01:35) [0]

Здравствуйте ! Значит создаю ComboBox:
var hComboBox: HWND; begin hComboBox := CreateWindowEx(WS_EX_CLIENTEDGE, "combobox", nil, WS_CHILD or WS_VISIBLE or CBS_DROPDOWNLIST or CBS_HASSTRINGS, 0, 0, 125, 17, ParentHandle, 0, hInstance, nil); SendMessage(hComboBox, CB_ADDSTRING, 0, lParam(PChar("String1"))); SendMessage(hComboBox, CB_ADDSTRING, 0, lParam(PChar("String2"))); SendMessage(hComboBox, CB_ADDSTRING, 0, lParam(PChar("String3"))); SendMessage(hComboBox, CB_SETCURSEL, 0, 0); end;

Проблема заключается в том что данный код работает правильно только если модуль XPMan подключен, но стоит его отключить, как в ComboBox"е не отображается ни одного Item"а, кроме того который был выбран(CB_SETCURSEL), а если не выбирать, то он вообще пустой. В чём проблема ?

← →
Джо © (2005-12-03 01:41) [1]

В CreateWindowEx параметр Height задай побольше, например 200. У тебя он явно маловат даже для одной строки (17 device units).

Спасибо большое.

Не отображаются Item ы в СomboBox Найти похожие ветки