...

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

Загрузка...