Создание кнопок (button) средствами WinAPI

Создание кнопки производится с помощью уже использованной нами для создания окна функцией CreateWindow. В качестве класса окна нужно использовать определенный в системе класс кнопки BUTTON. Основные доступные классы, предоставляемые операционной системой, следующие: LISTBOX, COMBOBOX, MEMO, MAINMENU, EDIT, SCROLLBAR, BUTTON, LISTVIEW, STATIC, TREEVIEW, HEADER, TOOLBAR, STATUSBAR, TRACKBAR, UPDOWN, PROGRESS, TABCONTROL, RICHEDIT, POPUPMENU, CHECKBOX, LABEL, GAUGE.

Изменим оконную функцию, описанную в предыдущем разделе, следующим образом:

function WindowProc (hWnd: THandle; uMsg, wParam, lParam: Integer): Integer; stdcall; export;

{функция окна}.

begin.

Result := 0;

case uMsg of.

WM_DESTROY: //если uMsg равна WM_DESTROY (код закрытия окна), то закрываемся.

begin.

halt (0);

end;

WM_CREATE: begin.

// создание кнопки.

hButton := CreateWindowEx (0,.

'BUTTON', // определенный класс кнопки.

'&Нажмите здесь', // надпись на кнопке.

ws_Child or ws_Visible.

or bs_PushButton, // стили для кнопки.

• 10, 10, // координаты левого верхнего угла
• 200, 80, // размер

hWnd, // handle родителя.

id_Button, // идентификатор кнопки (задается программистом).

hInstance,.

nil);

end;

WM_COMMAND:

// проверяем, от какой кнопки пришло сообщение.

if LoWord (wParam) = id_Button then.

// если это событие — click.

if HiWord (wParam) = bn_Clicked then.

// код обработки нажатия кнопки.

MessageBox (hWnd, 'Вы нажали на кнопку', '', MB_OK);

end;

Result := DefWindowProc (hWnd, uMsg, wParam, lParam);

end;

Теперь при создании окна (при получении сообщения WM_CREATE) создается экземпляр кнопки с указанными параметрами.

Обработка сообщений, передаваемых элементам управления, реализована с помощью сообщения WM_COMMAND, приходящего родительскому окну. В этом случае, первые 2 байта wParam хранят идентификатор элемента, остальные 2 — код уведомления/события. Таким образом, для того, чтобы обработать нажатие на кнопку, нужно принять сообщение WM_COMMAND и проанализировать параметр оконной функции wParam.