Программирование в Delphi. Трюки и эффекты - стр. 27

Для создания обычных кнопок можно использовать функцию из листинга 2.7 (все рассмотренные далее функции создания элементов управления возвращают дескриптор созданного окна).

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

caption: String):HWND;

begin

CreateButton:=

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

BS_PUSHBUTTON or WS_TABSTOP, x, y, width, height,

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

end;

Приведенная в листинге 2.8 функция создает флажок и устанавливает его.

function CreateCheck(x, y, width, height, id: Integer; caption: String;

checked: Boolean):HWND;

var

res: HWND;

begin

res:=

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

BS_AUTOCHECKBOX or WS_TABSTOP, x, y, width, height,

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

if ((res <> 0) and checked) then

SendMessage(res, BM_SETCHECK, BST_CHECKED, 0); //Флажок установлен

CreateCheck:= res;

end;

Следующая функция создает переключатель (листинг 2.9). Если нужно, то он устанавливается. Новый переключатель может начинать новую группу переключателей, для чего нужно параметру group присвоить значение True.

function CreateOption(x, y, width, height, id: Integer; caption: String;

group: Boolean; checked: Boolean):HWND;

var

res: HWND;

nGroup: Integer;

begin

if (checked) then nGroup:= WS_GROUP else nGroup:= 0;

res:=

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

BS_AUTORADIOBUTTON or nGroup or WS_TABSTOP, x, y, width,

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

if ((res <> 0) and checked) then

//Переключатель установлен

SendMessage(res, BM_SETCHECK, BST_CHECKED, 0);

CreateOption:= res;

end;

Для создания подписанной рамки, группирующей элементы управления, можно воспользоваться функцией CreateFrame, приведенной в листинге 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) пригодится функция Create-Combo, приведенная в листинге 2.11.

function CreateCombo(x, y, width, height, id: Integer):HWND;

begin