...

Листинг 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), предназначенную только для вывода текста.

Загрузка...