1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программирован. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление
  2. Чат codeby в telegram перезагрузка. Обсуждаем вопросы информационной безопасности и методы защиты информации, программирование. Задавайте свои вопросы и комментируйте чужие. Подробнее ...

    Скрыть объявление

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

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

  1. Dock1100

    Dock1100 :-]

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

    sinkopa Well-Known Member

    Репутация:
    0
    Регистрация:
    17 июн 2009
    Сообщения:
    344
    Симпатии:
    9
    Код:
    // 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 Больной Компом Детектед

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

    Dock1100 :-]

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

    niello Гость

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

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