Листинг 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.