[ifranki]

вопщем нуна чтобы при нажатии клавиши F1 сработало какое-нибудь определенное действие, в проекте много форм и в каждой форме еще есть компоненты, надо чтобы все работало для этих компонентов

[Yurk@]

Код:

uses Messages;
...
procedure OnKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if VK_F1 then {твоё действие}
end;

[ZveR_37rus]

Для того что бы подключить клавиатуру к делфи есть много способов. Я пользуюсь только одним ...Нужно в загрузке формы (Form1.Create) прописать следующий код...(для этого надо нажать на пустую форму два раза)....

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
 Form1.KeyPreview:=true;
end;

После этого необходимо в инспекторе(находится обычно в левом нижнем углу экрана) открыть вкладку с названием Events (их всего две). Далее в этом списке находим название OnKeyDown и нажимаем на него мышкой два раза...И прописываем следующий код...

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key = vk_f1 then /// любое действие например вот такое 
ShowMessage('Привет'); /// Для проверки а так то можешь прописать все что угодно...так же и с компонентами
end;

lmikle: пользуемся тегами!!! Я начинаю звереть

[lmikle]

Бросаем на форму TActionList, создаем в нем Action, указываем в ShortCut "F1" и в обработчике Execute пишем что надо сделать.

[segas]

А на какой вкладке этот компанент находится?

[lmikle]

На Standard

[mak-karpov]

Код:

if (GetKeyState(VK_F1)<0) and Form1.Active then ...