[ART]

Задача наверное простая, так что пишу здесь. Многие программы обрабатывают событие кнопка клавиатуры + мышь (Например Ctrl + LeftButton). Так как это сделать?

[Decoding]

Код:

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;

[ART]

Большое Спасибо