Вызов процедуры по нажатию клавиши

[CraftR14]

Вопрос Как вызвать к примеру процедуру по нажатию кнопки?

к примеру есть проццедура

procedure test;
begin
showmessage('TeSTTTTTTTTTTTTTTTTT');
end;

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


P.S в гугле только статьи о том как вызвать нажатие Кнопки =((

[spamer]

Как вариант:

//...

  private
    { Private declarations }
    procedure test(var mes : TMessage); message WM_KEYDOWN;

//...

procedure TForm1.test(var mes : TMessage);
begin
  if mes.WParam =  Ord('A') then
  showmessage('TeSTTTTTTTTTTTTTTTTT');
end;

//...

При нажатии на клавишу A

[CraftR14]

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

Как вариант:

//...

  private
    { Private declarations }
    procedure test(var mes : TMessage); message WM_KEYDOWN;

//...

procedure TForm1.test(var mes : TMessage);
begin
  if mes.WParam =  Ord('A') then
  showmessage('TeSTTTTTTTTTTTTTTTTT');
end;

//...

При нажатии на клавишу A

Компилится но просто не чего не происходит (

[spamer]

Как это ничего не происходит - у меня появляется например сообщение...попробуйте нажать клавишу A и все должно заработать (англ. раскладку поставьте)

[CraftR14]

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

Как это ничего не происходит - у меня появляется например сообщение...попробуйте нажать клавишу A и все должно заработать (англ. раскладку поставьте)

Да это я там накасячил))

Теперь вообще не понятно как сделать чтоб программа выполняла процедуру по Нажатию кнопки "А" но при свернутом состоянии??

[Lemo]

Какую кнопку? на форме или на клавиатуре, уточняйте...

[CraftR14]

В общем сделал Что то наподобии Скриншотера(Программа делающая скриншоты экрана и сохраняющая их в папку)
и теперь просто нужно сделать так чтоб к примеру убрать саму программу в трей а по нажатию к прмеру кнопки "А" она делала скриншот


Есть пример но он работает только с активной формой

[MaxNik2009]

Регистрируй горячие клавиши(RegisterHotKey), и отлавливай их нажатие.
Посмотри например ->тут<-. Тем по горячим клавишам на форуме много.

[Stilet]

Есть пример но он работает только с активной формой

В каком смысле?
на http://www.delphiworld.narod.ru/_all_articles_.html
в разделе TrayBar - [17] полно вкусных примеров с иконками в трее

[CraftR14]

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

В каком смысле?
на http://www.delphiworld.narod.ru/_all_articles_.html
в разделе TrayBar - [17] полно вкусных примеров с иконками в трее

млн трэй вообще здесь не причем, я говорил не про это а про то что к примеру если форму свернуть то у меня не отлавливаются нажатия и следорвательно не выполняется процедура