Текущий архив: 2006.02.12;
Скачать: 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 вся ветка
Текущий архив: 2006.02.12;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.04 c
