Скачать: CL | DM;

Не отображаются 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).

---

← →
Delphi_is_cool ©   (2005-12-03 01:51) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.038 c