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

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

sinkopa

Well-known member
17.06.2009
344
4
#2
Недавно столкнулса с проблемой нужно определить какой кнопкой мыши лувой/правой кликають по обекту, если левая то ето событие 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

Больной Компом Детектед
29.01.2006
2 432
34
#3
Опять же.. 3 минуты после нажатия на кнопку F1 для решения этой проблемы..(
 
N

niello

#5
Код:
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 - это перечисление!)