Как определить нажатую кнопку мыши

[Dock1100]

Недавно столкнулса с проблемой нужно определить какой кнопкой мыши лувой/правой кликають по обекту, если левая то ето событие OnClick , но как определить правую?

 

[sinkopa]

Недавно столкнулса с проблемой нужно определить какой кнопкой мыши лувой/правой кликають по обекту, если левая то ето событие OnClick , но как определить правую?

// TMouseButton = (mbLeft, mbRight, mbMiddle);
// TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble);

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

 

[vital]

Опять же.. 3 минуты после нажатия на кнопку F1 для решения этой проблемы..(

 

[Dock1100]

Спосибо, а что ознеачает ssAlt, ssCtrl?

 

[niello]

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (Button=mbLeft)and(Shift=[ssAlt,ssLeft])then
MessageBox(0,'la-la','la-la',MB_OK);
end;

ssAlt - зажата кнопка ALT (на клавиатуре), это сделано для того что бы ты мог комбинировать различные нажатия клавишь вместе с мышью (заметь TShiftState - это перечисление!)