Форум «Всё о Паскале» _ Теоретические вопросы _ Хоткей
Автор: Morfey85 16.04.2006 17:29
Подскажите как в паскале сделать Хоткэй в проге!
Автор: APAL 16.04.2006 17:39
В каком смысле? Можно подробнее.
Автор: Morfey85 16.04.2006 18:27
Цитата(APAL @ 16.04.2006 13:39)
В каком смысле? Можно подробнее.
Я имею в веду чтоб в любой момент исполнения, я мог бы нажать скажим Esc и программа закрылась бы или F1 для появления справки.
Автор: volvo 16.04.2006 18:59
2 способа: 1) определять свою подпрограмму, реагирующую на нужные клавиши, и вызывать ее где-нибудь в основном цикле программы, если было вообще какое-то нажатие на клавишу, например, так:
Var ToDo: Boolean;
Procedure MyReadKey; Begin { Проверяем, какая клавиша нажата, если F1 или Esc - то производим нужные действия, например, при нажатии Esc устанавливаем ToDo в False } End;
begin ... ToDo := True; { Основной цикл программы } While ToDo Begin
{ Если ЧТО-ТО было нажато - проверяем, ЧТО... } If KeyPressed Then MyReadKey; ...
End; ... end.
2) Перехватывать прерывание клавиатуры и соответствующим образом его обрабатывать... Я где-то на форуме приводил пример, поищи, если интересно...
Автор: Morfey85 16.04.2006 20:37
Цитата(volvo @ 16.04.2006 14:59)
Begin { Проверяем, какая клавиша нажата, если F1 или Esc - то производим нужные действия, например, при нажатии Esc устанавливаем ToDo в False } End;