Тема: 2 in 1
Показать сообщение отдельно
  #6  
Старый 07.09.2006, 21:43
Аватар для Electronic_Arts
Electronic_Arts Electronic_Arts вне форума
Местный
 
Регистрация: 13.07.2006
Адрес: на земле
Сообщения: 559
Версия Delphi: XE5
Репутация: 18
Восклицание

Вопрос 1: У меня есть программа которая реагирует на нажатые клавишы
вовремя деактивного положения
Вопрос 2: Спосибо огромное за помощь

Как сделать так что бы когда нажимаеш какуюта клавишу у программы менялся например Позиция прогрессбара. Я знаю только один способ

procedure TForm1.FormKeyDown(sender: TObject; var Key: Word;
shift: TShiftState);
begin
case key of
27: begin (...) end;
end;
end;


Этот код работает только с FormKeyDown или с FormKeyUp а мне надо такой код что бы вводить его на процедурах как OnActivate или OnDeactivate
Ответить с цитированием