|
Тема |
Re: прекъсване на изпълнение [re: vladko_lp] |
|
Автор |
2N3O55 (Майстор) |
|
Публикувано | 04.04.20 22:41 |
|
|
Използвай глобална променлива
var cycle: boolean;
...
cycle:=false;
...
repeat
{Тук е твоята процедура}
Application.ProcessMessages;
until cycle;
...
И регистрирай събитие, което прихваща някоя буква, например x:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key='x')
cycle:=true;
end;
Application.ProcessMessages е необходимо, за да се "слушат" клавиатурата и мишката, иначе цикъла ще ги блокира.
Който не знае закона на Ома да си ходи у дома!
|
| |
|
|
|