| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблема с ComboBox на WinApi

Arnold ©   (2005-01-09 01:53:00) 

Создал на Api ComboBox но почему то больше 2х пунктов туда не влезает. Никак не пойму в чем дело.
Посылаю ему сообщени CB_ADDSTRING. Может стиль какой то надо поставить.
Спасибо

---

Георгий Бедный   (2005-01-30 17:18:00) [1]

А как задать на ВинАпи диалог выбора шрифта и цвета фона (надо для скринсейвера)?

---

ALS   (2005-01-10 13:25:00) [2]

> Может стиль какой то надо поставить
Не помешает добавить WS_VSCROLL

---

Игорь Шевченко   (2005-01-10 12:07:00) [3]

> Создал на Api ComboBox но почему то больше 2х пунктов туда
> не влезает


При создании надо указывать размер (высоту) с учетом выпадающего списка.

---

GanibalLector   (2005-01-09 13:55:00) [4]


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, 100, 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_ADDSTRING, 0, Integer(PChar('Line4')));
SendMessage(H2, CB_SETCURSEL, 2, 0);
end;


---

Arnold   (2005-01-09 10:19:00) [5]

Ну например вот так

lComboBox:=CreateWindowEx(cs_vredraw,'ComboBox','',ws_child or ws_visible or CBS_DROPDOWNLIST,  10, 20, 50, 70, hParent, 0, hInstance, nil);

  for I:=0 to DriveList.COunt-1 do
 SendMessage(lComboBox,CB_ADDSTRING,0,Dword(Pchar(DriveList[I])));

Пробовал стили менять не получается

---

Yanis   (2005-01-09 02:17:00) [6]

А код где?

---

Наверх