Вернуть ноль после обработки сообщения

[InnI]

Здравствуйте, уважаемые.
Изучаю Lazarus (пока под Windows). Столкнулся с обработкой сообщений. Сделал так:

Код: Выделить всё

var PrevWndProc: WNDPROC;
...
function WndCallback(Ahwnd: HWND; uMsg: UINT; wParam: WParam; lParam: LParam): LRESULT; stdcall;
begin
  if (uMsg = WM_CLIPBOARDUPDATE)
  then
    begin
      FormViewer.WMDrawClipboard;
      Exit;
    end;
  result := CallWindowProc(PrevWndProc, Ahwnd, uMsg, wParam, lParam);
end;

procedure TFormViewer.FormCreate(Sender: TObject);
begin
  PrevWndProc := Windows.WNDPROC(SetWindowLong(Handle, GWL_WNDPROC, PtrInt(@WndCallback)));
end;

procedure TFormViewer.WMDrawClipboard;
begin
// здесь я работаю с буфером обмена
end;

Вроде работает, но в MSDN написано: If an application processes this message, it should return zero.
Объясните, где и как мне вернуть этот ноль?
И что будет, если этого не сделать?
Спасибо.

[alex208210]

в функции если условие выполнится, то результата у функции не будет.. перед exit присвойте result какое нить значение

[InnI]

в функции если условие выполнится, то результата у функции не будет.. перед exit присвойте result какое нить значение

Да, действительно... А какое конкретно в данном случае значение нужно присвоить?

[Alex333]

"If an application processes this message, it should return zero" переводится примерно как "Если приложение обрабатывает это сообщение, оно должно возвратить ноль". Если обработка сообщения заключается у вас в этом:

FormViewer.WMDrawClipboard;

то вероятно перед Exit надо написать Result := 0;

Или может я вопрос не понял...

[sign]

В самом начале напишите

Код: Выделить всё

  Result := -1;

По этому результату вы будете знать, что условие не было выполнено и функция не отработала.

[InnI]

Или может я вопрос не понял...

Дело в том, что в Delphi можно сделать так:

Код: Выделить всё

procedure WMDrawClipboard(var Msg: TWMCLIPBOARDUPDATE); message WM_CLIPBOARDUPDATE;

procedure WMDrawClipboard(var Msg: TWMCLIPBOARDUPDATE);
begin
// обработка
Msg.Result := 0;
end;

Вероятно, вот этот ноль (Msg.Result := 0;) и должно вернуть приложение.
А в Лазарусе я несколько запутался с колбэк-функциями (уровень знаний ещё не на столько высок). Поэтому и спрашиваю, каким образом через колбэк-функцию этот ноль вернуть.