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

Тема в разделе "Delphi - Система", создана пользователем Dock1100, 21 ноя 2009.

  1. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Недавно столкнулса с проблемой нужно определить какой кнопкой мыши лувой/правой кликають по обекту, если левая то ето событие OnClick , :) но как определить правую?
     
  2. sinkopa

    sinkopa Well-Known Member

    Регистрация:
    17 июн 2009
    Сообщения:
    344
    Симпатии:
    9
    Код (Text):
    // 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);
     
  3. vital

    vital Больной Компом Детектед
    Команда форума Web Team

    Регистрация:
    29 янв 2006
    Сообщения:
    2.474
    Симпатии:
    27
    Опять же.. 3 минуты после нажатия на кнопку F1 для решения этой проблемы..(
     
  4. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Спосибо, а что ознеачает ssAlt, ssCtrl?
     
  5. niello

    niello Гость

    Код (Text):
    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 - это перечисление!)
     
Загрузка...

Поделиться этой страницей