LITMIR.BIZ

      //Функция обработки сообщений

      function WindowFunc(hWnd:HWND; msg:UINT; wParam:WPARAM;

      lParam:LPARAM):LRESULT; stdcall;

      var

      ps: PAINTSTRUCT;

      begin

      case msg of

      WM_PAINT:

      begin

      //Перерисовка содержимого окна

      BeginPaint(hWnd, ps);

      TextOut(ps.hdc, 10, 10, 'Текст в окне', 12);

      EndPaint(hWnd, ps);

      end;

      WM_CLOSE:

      if (hWnd = hMainWnd) then

      PostQuitMessage(0); //При закрытии этого окна

      //завершается приложение

      WM_COMMAND:

      begin

      case LOWORD(wParam) of

      //нажата «Кнопка 1»

      1001: if HIWORD(wParam) = BN_CLICKED then;

      //нажата «Кнопка 2»

      1002: if HIWORD(wParam) = BN_CLICKED then;

      //установлен «Флажок 1»

      2001: if HIWORD(wParam) = BN_CLICKED then;

      //установлен «Флажок 2»

      2002: if HIWORD(wParam) = BN_CLICKED then;

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

      3001: if HIWORD(wParam) = BN_CLICKED then;

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

      3002: if HIWORD(wParam) = BN_CLICKED then;

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

      3003: if HIWORD(wParam) = BN_CLICKED then;

      //выделение в ComboBox

      4001: if HIWORD(wParam) = CBN_SELCHANGE then;

      //выделение в ListBox

      5001: if HIWORD(wParam) = LBN_SELCHANGE then;

      //изменен текст в Edit

      6001: if HIWORD(wParam) = EN_CHANGE then;

      //изменен текст в Memo

      6002: if HIWORD(wParam) = EN_CHANGE then;

      end;

      end;

      else

      begin

      //Обработка по умолчанию

      WindowFunc := DefWindowProc(hWnd, msg, wParam, lParam);

      Exit;

      end;

      end;

      WindowFunc := S_OK; //Сообщение обработано

      end;