Delphi. Трюки и эффекты (Чиртик, Борисок) - страница 28

Листинг 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 функция создает флажок и устанавливает его.

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

Листинг 2.9.

Создание переключателя

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.

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

Листинг 2.11.

Создание раскрывающегося списка

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

begin

CreateCombo:=

CreateWindow(\'COMBOBOX\', nil, WS_CHILD or WS_VISIBLE or

CBS_DROPDOWN or CBS_AUTOHSCROLL or WS_TABSTOP,

x, y, width, height, hParentWnd,

HMENU(id), hAppInst, nil);

end;

Для создания простого списка (ListBox) вполне подойдет фyнкцияCreateList из листинга 2.12.

Листинг 2.12.

Создание простого списка

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