|
|
|
Тема
|
 прекъсване на изпълнение
|
|
| Автор |
vladko_lp (непознат
) |
| Публикувано | 31.03.20 10:07 |
|
|
Как може в Delphi да се пркъсне изпънението на дадена процедура до натискането на клавиш? Нещо като
repeat
until KeyPressed;
в turbo Pascal.
Или нещо като ReadKey.
Благодаря от сърце!
| |
|
Тема
|
 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 е необходимо, за да се "слушат" клавиатурата и мишката, иначе цикъла ще ги блокира.
Който не знае закона на Ома да си ходи у дома!
| |
|
|
|
Благодаря ти отново 2N3O55 ! Стана и още как. Никога, ама никога нямаше да се сетя. Затова си майстор ! Не знам само защо тази пущина трябва да се направи толкова сложно. Не знам и ще си ходя у дома
С пожелание за здраве и късмет!
| |
|
Тема
|
Re: прекъсване на изпълнение
[re: vladko_lp]
|
|
| Автор |
funy77 (krechetalo77) |
| Публикувано | 24.08.20 08:25 |
|
|
Delphi Programming
Learn how to design, develop and test application using Delphi. This guide covers the fundamental elements of creating Windows applications using Delphi, including the Integrated Development Environment (IDE) and the Object Pascal language.
;)
Редактирано от funy77 на 24.08.20 08:26.
| |
|
Тема
|
Re: прекъсване на изпълнение
[re: funy77]
|
|
| Автор |
Naki (Company PC Guy) |
| Публикувано | 26.08.20 21:11 |
|
|
Хапчетата! Спешно!!
| |
|
| 
|
|
