Как заставить программу реагтровать на нажатия клавиш?

[AngelOfDeath]

Как заставить программу реагтровать на нажатия клавиш?
Например нажал A
И имя изменилось
PS Не бейте больно если неправильно сформулировал или задал ламерский вопрос

[Stilet]

Как заставить программу реагтровать на нажатия клавиш?

прописать соответствующий код в событии OnKeyХХХ а для формы поставить KeyPreview:=true;

И имя изменилось

Чье?

[AngelOfDeath]

Сообщение от Stilet

И имя изменилось
Чье?

Не я это просто написал чтоб было более понятно(например Button1.Caption)
Можете привести полный пример кода или исходник?

[SERG1980]

Ну например у формы есть событие OnKeyDown, тогда

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

[AngelOfDeath]

Как сделать так чтоб когда программу сворачиваю в трей
Это срабатывало

[Stilet]

Я пожалуй всетки уточню и поправлю код Сержа.

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=VkKeyScan('a') then
  Label1.Caption:=Label1.Caption+'a';
end;

end.

Яснышко, автор?

Как сделать так чтоб когда программу сворачиваю в трей
Это срабатывало

А вот это, ИМХО, через хуки.

[AngelOfDeath]

Вот ещё один вопрос
Какой код чтоб программа реагировала на нажатие всех клавиш
И вписывало в Label

Ну чтоб не перечислять

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=VkKeyScan('a') then
  Label1.Caption:=Label1.Caption+'a';
  if key=VkKeyScan('b') then
  Label1.Caption:=Label1.Caption+'b';
end;

end.

[Квэнди]

Если необходима реакция на комбинации клавиш ( горячие клавиши), то это одно. Если необходимо мониторить все нажатия, это другое. И по первому и по второму варианту на нашем форуме огромное кол-во информации.

[SERG1980]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Label1.Caption:=Label1.Caption+chr( Key)
end;
а лучше Hook на клаву

[Alter]

Сообщение от AngelOfDeath

Как сделать так чтоб когда программу сворачиваю в трей
Это срабатывало

Через хуки делать это необязательно, для этого есть HotKeys.
Регистрируете свои Хоткеи в системе, и наслаждаетесь.
___________________________________ _________________________
Поиск по форуму => "HotKey". Может найдёте у меня изменённый компонент HotKey, для получения кода клавишь, для их регистрации.