[Dmitry_DM]

Здравствуйте! Хочу спросить как сделать следующее: при нажатии на пробел нажималась button1, при повторном нажатии - button2. Знаю, что код не сложный, но все же скажите как это правильно сделать. Спасибо!

[Bargest]

В каком-нибудь onKeyDown считать нажатия и соответственно вызывать ButtonX.Clicked.

[angvelem]

Да не пройдёт всё это. Какой контрол будет в фокусе, тот и отработает и плевать он хотел на OnKeyDown.

Мне представляется несколько вариантов:
1. Отказаться от клавиши Space.
2. Отказаться от TButton в пользу графических контролов (TSpeedButton).
3. Использовать THotKey.

[Dmitry_DM]

Сообщение от angvelem

Да не пройдёт всё это. Какой контрол будет в фокусе, тот и отработает и плевать он хотел на OnKeyDown.

Мне представляется несколько вариантов:
1. Отказаться от клавиши Space.
2. Отказаться от TButton в пользу графических контролов (TSpeedButton).
3. Использовать THotKey.

THotKey это сторонний компонент или он есть в Delphi? Просто раньше его не видел..

[angvelem]

Стандартный, на вкладке Win32.

Есть ещё вариант, использовать функцию API - RegisterHotKey.

[Dmitry_DM]

Сообщение от angvelem

Стандартный, на вкладке Win32.

Есть ещё вариант, использовать функцию API - RegisterHotKey.

Да, действительно есть такой компонент, только как он поможет в моем вопросе? Нужно нажимать две кнопки, расположенные на форме, к примеру, клавишей пробел. Один раз нажал на пробел - выполнилось действие одной кнопки, второй раз - второй кнопки. Это вообще можно?

[lmikle]

Сообщение от Dmitry_DM

Да, действительно есть такой компонент, только как он поможет в моем вопросе? Нужно нажимать две кнопки, расположенные на форме, к примеру, клавишей пробел. Один раз нажал на пробел - выполнилось действие одной кнопки, второй раз - второй кнопки. Это вообще можно?

Код:

press_cnt : Integer;
...
press_cnt := 0;
Form.KeyPreview := True;
...
procedure TForm1.FormKeyPress(Sender : TObject; var Key : Char);
begin
  if Key = ' ' Then
    Begin
      if press_cnt = 0 Then Button1Click(Sender) Else Button2Click(Sender);
      press_cnt := Abs(press_cnt-1);
      Key := #0;
    End;
end;

Profit!!!

[M.A.D.M.A.N.]

В обработчике OnKeyDown эмулировать нажатие кнопки tab, или принудительно фокус передавать сл. контролу.

[Bargest]

press_cnt := Abs(press_cnt-1);

Ну можно и попроще:

Код:

press_cnt := 1 - press_cnt;

[Dmitry_DM]

Сообщение от Bargest

Ну можно и попроще:

Код:

press_cnt := 1 - press_cnt;

Ну и ничего не работает. Нажимаю пробел - никакой реакции, и все-равно нажимаю сам то одну кнопку, то другую..

[Yurk@]

так что ли

[Dmitry_DM]

Сообщение от Yurk@

так что ли

Вы совершенно правильно меня поняли! Спасибо большое!

[lmikle]

Обработчик-то форме присвоить надо было, а не просто скопировать код...

[Dmitry_DM]

Сообщение от lmikle

Обработчик-то форме присвоить надо было, а не просто скопировать код...

Я так и делал - не работает. А вот методом Yurk@ все отлично.