Текущий архив: 2006.02.19;
Скачать: CL | DM;

Вниз

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

← →
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]

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

---

Страницы: 1 вся ветка

Текущий архив: 2006.02.19;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.037 c