Я имею в веду чтоб в любой момент исполнения, я мог бы нажать скажим 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;