| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Не отображаются Item'ы в СomboBox [D7, WinXP]
Delphi_is_cool © (2005-12-03 01:35:00)Здравствуйте ! Значит создаю 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), а если не выбирать, то он вообще пустой. В чём проблема ?
Delphi_is_cool (2005-12-03 01:51:00) [1]Спасибо большое.
Джо (2005-12-03 01:41:00) [2]В CreateWindowEx параметр Height задай побольше, например 200. У тебя он явно маловат даже для одной строки (17 device units).
| |
