|
#1
|
|||
|
|||
Кнопка + Мышь
Задача наверное простая, так что пишу здесь. Многие программы обрабатывают событие кнопка клавиатуры + мышь (Например Ctrl + LeftButton). Так как это сделать?
|
#2
|
||||
|
||||
Код:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button = mbLeft then if ssCtrl in Shift then Caption := 'LButton + CTRL'; end; |
#3
|
|||
|
|||
Большое Спасибо
|