Работа с клавиатурой

[Mrsqler]

Нужно чтобы по нажатию на кнопку открывалась форма.Пробую вот этим кодом

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   if Key = vk_F1 then
     Form2.Show;
end;

Компилирую без проблем,но когда жму на F1,то ничего не происходит.

[Stilet]

Жмешь где?
Выставь KeyPreview дабы форма перехватывала нажатия со всех своих контролов

[Mrsqler]

Выставил-ничего не изменилось.

[JekaDefer]

хз у меня все работает с KeyPreview в True

[Mrsqler]

А можешь код полностью скинуть?)А еще лучше сам проект.

[JekaDefer]

Надеюсь поможет))

[Mrsqler]

Что-то я всё таки не то делаю.
Нужно добавить этот код

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = vk_F1 then showmessage('f1');
end;

end.
end;

добавить procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState); в type .А затем установить на Object Inspector установить KeyPreview True .И всё,компилируем проект?Но после этих действий ничего не происходит,проект просто компилится,но кнопка F1 так и не работает.

[Mrsqler]

Так что не так-то?(

[Stilet]

А затем установить на Object Inspector установить KeyPreview True .И всё

Все??? А кто будет привязку FormKeyDown к OnKeyDown формы в обьекте инспекторов на вкладке событий делать? - вот тут и порылась твоя песик )

[googl]

А зачем такие извращения про событие нажатия? нельзя разве добавить F1 как горячую клавишу?