| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Combobox
SPeller © (2004-11-07 15:05:00)У меня тут проблемка одна случилась. Толи я туплю, толи не знаю. Вобщем создаю комбобокс на VCL-форме:
var
H2: HWND;
begin
H2 := CreateWindow('Combobox', 'CB1',
WS_VISIBLE or WS_BORDER or WS_CHILD or CBS_DROPDOWN or CBS_HASSTRINGS,
5, 5, 90, 20, Handle, 0, HInstance, nil);
SendMessage(H2, CB_ADDSTRING, 0, Integer(PChar('Line1')));
SendMessage(H2, CB_ADDSTRING, 0, Integer(PChar('Line2')));
SendMessage(H2, CB_ADDSTRING, 0, Integer(PChar('Line3')));
SendMessage(H2, CB_SETCURSEL, 2, 0);
Комбобокс создается, но выпадающего списка нет. Выделяется третья строка, значит строки добавляются. Но почему не показывается выпадающий список?
SPeller (2004-11-07 16:36:00) [1]Ой, надо же :) Вон оно почему :) Н-да, немного извращенный способ..
Ученик (2004-11-07 16:10:00) [2]А если поменять высоту с 20 до, например, 100 ?
| |
