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

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
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;