TMouseEvent = procedure (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer)

Событие кнопки мыши.

Параметры:

• Sender - источник события.
• Button - какая кнопка нажата.
• Shift - состояние управляющих клавиш и кнопок мыши.
• X, Y - положение указателя мыши в клиентских координатах.

Ссылки: TControl.OnMouseDown, TControl.OnMouseUp, TTrayIcon.OnMouseDown, TTrayIcon.OnMouseUp