
26.12.2012, 07:20
|
Модератор
|
|
Регистрация: 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!!!
|