Доброго дня всем
На форме есть много компонентов.
Как перехватить щелчок мышью, чтобы не анализировать события мыши для каждого компонента?
Т.е. аналог Form.KeyPreview, только не для клавиатуры, а для мыши.
Модератор: Модераторы
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;
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;
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 233