Тема: имитация нажатия клавиши
Показать сообщение отдельно
  #2  
Старый 04.05.2012, 19:17
Аватар для Yurk@
Yurk@ Yurk@ вне форума
Специалист
  
Регистрация: 07.09.2007
Адрес: Украина, г. Днепропетровск
Сообщения: 892
Версия Delphi: 7 + ОгнеПтица
Репутация: выкл
По умолчанию
Код:
procedure TaForm.edPfKodKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case Key of
  VK_F9	: Button3Click(nil);
  end;
end;
__________________
Поживу - увижу, Доживу - узнаю, Выживу - учту.
[P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
Ответить с цитированием