Текущий архив: 2004.12.19;
Скачать: CL | DM;

Вниз

Combobox   Найти похожие ветки 

← →
SPeller ©   (2004-11-07 15:05) [0]

У меня тут проблемка одна случилась. Толи я туплю, толи не знаю. Вобщем создаю комбобокс на 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);


Комбобокс создается, но выпадающего списка нет. Выделяется третья строка, значит строки добавляются. Но почему не показывается выпадающий список?

---

← →
Ученик   (2004-11-07 16:10) [1]

А если поменять высоту с 20 до, например, 100 ?

---

← →
SPeller ©   (2004-11-07 16:36) [2]

Ой, надо же :) Вон оно почему :) Н-да, немного извращенный способ..

---

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

Текущий архив: 2004.12.19;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.059 c