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

← →
alexus (2006-02-01 14:31) [0]

собсно сабж.
я в хелпе ничего не нашел

← →
DesWind © (2006-02-01 14:34) [1]

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

FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer)

в Button будет нажатая/поднятая кнопка

← →
КиТаЯц © (2006-02-01 14:35) [2]

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin case Button of mbLeft: showmessage("Левая"); mbRight: showmessage("Правая"); mbMiddle: showmessage("Средняя"); end; end;

← →
ZeroDivide © (2006-02-01 14:37) [3]

Тип TMouseButton определет константы используемые в хендлерах мышиных событий чтобы определить какая кнопка вызвала mouse event.

type TMouseButton = (mbLeft, mbRight, mbMiddle);

← →
alexus (2006-02-01 14:38) [4]

о!!!
Благодарствуйте!

Как определить какая кнопка мыши нажата? Найти похожие ветки