![]() |
|
#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
|
|||
|
|||
![]() Большое Спасибо
|