| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как определить какая кнопка мыши нажата? [D6, XP]

alexus ©   (2006-02-01 14:31:00) 

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

---

alexus   (2006-02-01 14:38:00) [1]

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

---

ZeroDivide   (2006-02-01 14:37:00) [2]

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

type TMouseButton = (mbLeft, mbRight, mbMiddle);

---

КиТаЯц   (2006-02-01 14:35:00) [3]

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

---

DesWind   (2006-02-01 14:34:00) [4]

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

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

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

---

Наверх