Hot Key для проги

[-=<[Evklidd]>=-]

Написал прогу осуществляющую скриншот рабочего стола.
Терь хочу сделать так, чтобы юзер вместо того чтобы жать по баттонам проги, мог нажать определенные клавиши или сочетании клавиш на
клавиатуре и получить тож самое, то есть сделать горячие клавиши. Для этого я сделал обработчик события form1.keypress и в нем прописал, например: if KEY = #8 THEN
SHOT(); здесь shot - процедура выполняющая сам скриншот. В итоге все компилируется,
но при нажатии Backspace ни чего не происходит! что я сделал не так?! подскажите уважаемые программисты, заранее большое спасибо.

[alexBlack]

Поставь свойство form1.KeyPreview := true;

[lamonana]

У формы есть событие OnKeyPress, которое возникает при нажатии (и отпускании(!)) любой клавиши, когда форма активна.
Есть, правда, еше OnKeyDown и OnKeyUp, которые возникают только при нажатии или отпускании люб. клавиши(соотв). Но первая процедура может определять язык и регистр букв, чего остальные не могут, однако не может определить Enter, Escape и т. д., что могут сделать остальные.

Ну вот, в нутри процедуры KeyPress есть переменная Key типа Char, (что очень удобно(я имею ввиду что клавиша ввиде символа, а не кода, напр Key = '%') ), которая определяет нажатую клавишу.

Напр:

procedure TFControl.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Fey = 'D'
  then
  begin
  ...
  end;
end;

KeyDown и KeyUp имеют переменные: Key типа Word, где записан код клавиши (абсолютно любой) и Shift типа TShiftState (ssAlt, ssCtrl,etc.) куда заносятся все альтернативные клавиши.

Например, вам нужно, чтоб сделался скриншот при нажатии Alt+S:

procedure TFControl.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ((Key = 83) and (Shift = aaAlt))
  then SHOT(...);
end;

[lamonana]

У формы есть событие OnKeyPress, которое возникает при нажатии (и отпускании(!)) любой клавиши, когда форма активна.
Есть, правда, еше OnKeyDown и OnKeyUp, которые возникают только при нажатии или отпускании люб. клавиши(соотв). Но первая процедура может определять язык и регистр букв, чего остальные не могут, однако не может определить Enter, Escape и т. д., что могут сделать остальные.

Ну вот, в нутри процедуры KeyPress есть переменная Key типа Char, (что очень удобно(я имею ввиду что клавиша ввиде символа, а не кода, напр Key = '%') ), которая определяет нажатую клавишу.

Напр:

procedure TFControl.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Fey = 'D'
  then
  begin
  ...
  end;
end;

KeyDown и KeyUp имеют переменные: Key типа Word, где записан код клавиши (абсолютно любой) и Shift типа TShiftState (ssAlt, ssCtrl,etc.) куда заносятся все альтернативные клавиши.

Например, вам нужно, чтоб сделался скриншот при нажатии Alt+S:

procedure TFControl.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ((Key = 83) and (Shift = aaAlt))
  then SHOT(...);
end;

[lamonana]

У формы есть событие OnKeyPress, которое возникает при нажатии (и отпускании(!)) любой клавиши, когда форма активна.
Есть, правда, еше OnKeyDown и OnKeyUp, которые возникают только при нажатии или отпускании люб. клавиши(соотв). Но первая процедура может определять язык и регистр букв, чего остальные не могут, однако не может определить Enter, Escape и т. д., что могут сделать остальные.

Ну вот, в нутри процедуры KeyPress есть переменная Key типа Char, (что очень удобно(я имею ввиду что клавиша ввиде символа, а не кода, напр Key = '%') ), которая определяет нажатую клавишу.

Напр:

procedure TFControl.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Fey = 'D'
  then
  begin
  ...
  end;
end;

KeyDown и KeyUp имеют переменные: Key типа Word, где записан код клавиши (абсолютно любой) и Shift типа TShiftState (ssAlt, ssCtrl,etc.) куда заносятся все альтернативные клавиши.

Например, вам нужно, чтоб сделался скриншот при нажатии Alt+S:

procedure TFControl.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ((Key = 83) and (Shift = aaAlt))
  then SHOT(...);
end;

[GAGARIN-NEW]

Вопрос по теме как сделать чтобы например SHOT(); выаполнялся по нажатию только Ctrl?

if (Shift = aaAlt) then SHOT(...); неработает.
if (Shift = ssAlt) then SHOT(...); неработает.

ЗЫ: "Горячяя клавиша" не должна быть глобальной те вне моей программы она не должна срабатывать ... темболее если "перехватить" контроль за CTRL то многое перестанет работать /в моём понимании/

[mihali4]

То lamonana:
Это для пущей доходчивости вы отправили 3 одинаковых сообщения?
Не приветствуется...

Теперь по вопросу. Все то, что предлагалось - не есть "горячие клавиши" в их обычном понимании.
По правилам - ставьте хук на свое сочетание клавиш. А еще, если мне память не изменяет, как-то рассматривался вопрос регистрации в системе своих горячих клавиш. Поищите, скорее всего это именно то, что нужно.

[lamonana]

Вопрос по теме как сделать чтобы например SHOT(); выаполнялся по нажатию только Ctrl?

if (Shift = aaAlt) then SHOT(...); неработает.
if (Shift = ssAlt) then SHOT(...); неработает.

ЗЫ: "Горячяя клавиша" не должна быть глобальной те вне моей программы она не должна срабатывать ... темболее если "перехватить" контроль за CTRL то многое перестанет работать /в моём понимании/

Попробуйте:

if (Key = 17) then SHOT(...);

Это для пущей доходчивости вы отправили 3 одинаковых сообщения?
Не приветствуется...

Прошу прощения, я не специально. У меня нет завис: я нажимаю - не работает, нажимаю - на работает, НАЖИМАЮ - НЕРАБОТАЕТ!
А потом БАЦ!.. И все три сообщения отправились. Надеюсь, больше не повторится.

[GAGARIN-NEW]

if (Key = 17) then SHOT(...);

Спасибо.Работает .
Ещё вопрос где вы узнаёте виртуальный код клавиш ??? тут например Ctrl - 17 .. итд ???

[B_N]

Сообщение от GAGARIN-NEW

if (Key = 17) then SHOT(...);

Спасибо.Работает .
Ещё вопрос где вы узнаёте виртуальный код клавиш ??? тут например Ctrl - 17 .. итд ???

http://msdn2.microsoft.com/en-us/library/ms927178.aspx