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

Dock1100 · 21.11.2009

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

но как определить правую?

sinkopa · 30.11.2009

Dock1100 сказал(а):
Недавно столкнулса с проблемой нужно определить какой кнопкой мыши лувой/правой кликають по обекту, если левая то ето событие 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 · 30.11.2009

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

Dock1100 · 02.12.2009

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

niello · 03.12.2009

Код:

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