[GriLab]

Я не могу разобраться, почему сообщения для программы не обрабатываются в WindowProc??? Кучу исходников вспотрошил...

Код:

program MyApp;

uses Windows, Messages;

var
  Msg: TMsg;

function WindowProc(Window: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
  { Здесь обработчики сообщений }
end;

begin
  { ... }
  while GetMessage(Msg, 0, 0, 0) do
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
 { ... }
end.

Помогите люди, совсем запутался!