Показать сообщение отдельно
  #3  
Старый 04.08.2009, 17:03
ZveR_37rus ZveR_37rus вне форума
Прохожий
 
Регистрация: 04.08.2009
Сообщения: 14
Репутация: 10
По умолчанию

Для того что бы подключить клавиатуру к делфи есть много способов. Я пользуюсь только одним ...Нужно в загрузке формы (Form1.Create) прописать следующий код...(для этого надо нажать на пустую форму два раза)....

Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
 Form1.KeyPreview:=true;
end;

После этого необходимо в инспекторе(находится обычно в левом нижнем углу экрана) открыть вкладку с названием Events (их всего две). Далее в этом списке находим название OnKeyDown и нажимаем на него мышкой два раза...И прописываем следующий код...
Код:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key = vk_f1 then /// любое действие например вот такое 
ShowMessage('Привет'); /// Для проверки а так то можешь прописать все что угодно...так же и с компонентами
end;

lmikle: пользуемся тегами!!! Я начинаю звереть
Ответить с цитированием