Показать сообщение отдельно
  #7  
Старый 26.12.2012, 07:20
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Цитата:
Сообщение от 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!!!
Ответить с цитированием