Листинг 2.11.
Создание раскрывающегося списка
function CreateCombo(x, y, width, height, id: Integer):HWND;
begin
CreateCombo:=
CreateWindow(\'COMBOBOX\', nil, WS_CHILD or WS_VISIBLE or
CBS_DROPDOWN or CBS_AUTOHSCROLL or WS_TABSTOP,
x, y, width, height, hParentWnd,
HMENU(id), hAppInst, nil);
end;
Для создания простого списка (ListBox) вполне подойдет фyнкцияCreateList из листинга 2.12.