Я имею в веду чтоб в любой момент исполнения, я мог бы нажать скажим Esc и программа закрылась бы или F1 для появления справки.
volvo
16.04.2006 14: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 16:37
Цитата(volvo @ 16.04.2006 14:59)
Begin { Проверяем, какая клавиша нажата, если F1 или Esc - то производим нужные действия, например, при нажатии Esc устанавливаем ToDo в False } End;