Перхват клика мышки для формы

[Xenar]

Доброго дня всем

На форме есть много компонентов.
Как перехватить щелчок мышью, чтобы не анализировать события мыши для каждого компонента?
Т.е. аналог Form.KeyPreview, только не для клавиатуры, а для мыши.

[WAYFARER]

Для какой ОС? Если для Windows то проще простого

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

procedure TfMain.FormCreate(Sender: TObject);
begin
  Application.OnMessage := onMess;
end;

procedure TfMain.onMess(var Msg: TMsg; var Handled: Boolean);
begin
  if(Msg.message=WM_LBUTTONDOWN)then begin
   ...
  end;
  Handled := False;
end;

[Xenar]

В том то и дело что под линуху.

[Ism]

Можно прицепить события всех компонентов OnMouseMove к событию OnMouseMove формы
Типо так, вроде работает в винде , линухе тоже должно
Только вы лишаетесь обрабатывать данное событие компонентов отдельно

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

procedure TForm1.FormCreate(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to ComponentCount-1 do
     TForm(Components[i]).OnMouseMove:=@FormMouseMove;
end;                                                         

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

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Memo1.Lines.Add(TimeToStr(Now));
end;