...

Листинг 2.10.

Создание рамки

function CreateFrame(x, y, width, height, id: Integer;

caption: String):HWND;

begin

CreateFrame:=

CreateWindow(\'BUTTON\', PAnsiChar(caption), WS_CHILD or

WS_VISIBLE or BS_GROUPBOX, x, y, width, height,

hParentWnd, HMENU(id), hAppInst, nil);

end;

Для того чтобы создать раскрывающийся список (ComboBox), можно использовать функцию CreateCombo из листинга 2.11.

Загрузка...