Событие при нажатии клавиши.

[werrey]

Подскажите пожалуйста, как правильно прописать событие при нажатии на определённую клавишу (к примеру любую из d,f,r ) ?

У меня где несколько форм, они вообще не работают, а где 2, то как-то не так, может я чего не правильно делаю?

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if  Key= Ord('F') then
begin
Form2.Show;

 end;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if  Key= Ord('F') then
begin
Form2.Close;

 end;
end;

end.

В данном примере при отпускании клавиши "F" форма2 не закрывается(

[volod3000]

Процедуру

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if  Key= Ord('F') then
begin
Form2.Hide;

 end;
end;

разместите на второй форме, и будет Вам счастье .

[werrey]

Спасибо , с новым проектом вроде работает.
А вот на старом проекте вообще не реагирует на нажатие клавиатуры(хотя если те же действия кинуть на button,то все нормально работает),ума не приложу в чем дело может быть(

[Ermowkin]

Возможно процедура не привязана к форме, а просто описана в тексте.