
28.07.2009, 18:45
|
 |
Специалист
|
|
Регистрация: 07.09.2007
Адрес: Украина, г. Днепропетровск
Сообщения: 892
Версия Delphi: 7 + ОгнеПтица
Репутация: выкл
|
|
Код:
uses Messages;
...
procedure OnKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if VK_F1 then {твоё действие}
end;
__________________
Поживу - увижу, Доживу - узнаю, Выживу - учту. 
[P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|