Листинг 2.12.
Создание простого списка
function CreateList(x, y, width, height, id: Integer):HWND;
begin
CreateList:=
CreateWindowEx(WS_EX_CLIENTEDGE, \'LISTBOX\', nil, WS_CHILD or
WS_VISIBLE or LBS_NOTIFY or WS_BORDER or
WS_TABSTOP, x, y, width, height,
hParentWnd, HMENU(id), hAppInst, nil);
end;
Функция CreateLabel в листинге 2.13 создает статическую надпись (Label), предназначенную только для вывода текста.