[series777]

как сделать так чтобы при нажатии определенной комбинации клавиш к примеру ctrl+y или при нажатии клавиш f1 f2 f3 программа совершала какое либо действие а именно выводила сообщение или открывала дочернее окно

помогите кто может плиз

за ранее благодарен

[Страдалецъ]

Для этого есть компонент ActionManaget

[series777]

а как именно это реализовать если не сложно можно привести пример плиз

[Страдалецъ]

Кидаете на форму компонент ActionManager. Вызываете в его свойствах Customize. Добавляете в его список New Action. Для него в свою очередь в инспекторе объектов обрабатываете событие OnExecute а так-же устанавливает в свойстве ShortCut нужное сочетание клавиш.
Все

[Vlad55]

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

как сделать так чтобы при нажатии определенной комбинации клавиш к примеру ctrl+y или при нажатии клавиш f1 f2 f3 программа совершала какое либо действие а именно выводила сообщение или открывала дочернее окно

помогите кто может плиз

за ранее благодарен

Можно в принципе и горячие системные клавишы повесить на эти сочетания через

RegisterHotKey()

[Scream]

а можнопо подробнее насчет RegisterHotKey()

[Vlad55]

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

а можнопо подробнее насчет RegisterHotKey()

Можно. RegisterHotKey() регистрирует горячие системные клавиши. Для того, чтобы это сделать, необходимо указать виртуальные коды клавиш и идентификатор. Например, чтобы зарегистрировать сочетание ctrl+y можно использовать такой код:

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
id1 := GlobalAddAtom('Hotkey1');
RegisterHotKey(Handle, id1, VK_CONTROL, MapVirtualKey(VkKeyScan('y'),0));
....
end;

Если все пройдет успешно то функция вернет true. Соответственно, чтобы перехватывать нажати клавиш и что-то выполнять в программе, необходимо отлавливать сообщение WM_HOTKEY. Делается это так (для того же сочетания ctrl+y):

Код:

private 
    id1: Integer; 
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY; 
{.....}
implementation 

{$R *.DFM} 

procedure TForm1.WMHotKey(var Msg: TWMHotKey); 
begin 
  if Msg.HotKey = id1 then 
    begin
      {что-то делаем в программе}
    end
end;

Подобным образом можно отлавливать всё, что угодно, любое сочетание клавиш. На всякий случай поясню некоторые функции:

VkKeyScan('y') - определяет скан-код клавиши
MapVirtualKey(VkKeyScan('y'),0) - переводит скан-код в виртульный код
Константы типа VK_... описаны в модуле Windows.
Вроде бы все. Если что-то непонятно - не стесняйтесь, спрашивайте. Попробую ответить более развернуто

Чуть не забыл. При выключении программы необходимо снимать свои горячие системные клавиши функцией (для нашего примера):

Код:

UnregisterHotKey(Handle, id1)

[Scream]

Vlad55 спасибо тебе за разьяснения

[Mohin]

а как можно перехватить нажатие клавиш в цикле?
while true do
begin
if klavisha=vk_F12 then break;
end;
вот примерно так мне нужно