Клубове Дир.бг
powered by diri.bg
търси в Клубове diri.bg Разширено търсене

Вход
Име
Парола

Клубове
Dir.bg
Взаимопомощ
Горещи теми
Компютри и Интернет
Контакти
Култура и изкуство
Мнения
Наука
Политика, Свят
Спорт
Техника
Градове
Религия и мистика
Фен клубове
Хоби, Развлечения
Общества
Я, архивите са живи
Клубове Дирене Регистрация Кой е тук Въпроси Списък Купувам / Продавам 22:46 25.05.24 
Компютри и Интернет
   >> Delphi
Всички теми Следваща тема *Кратък преглед

Тема прекъсване на изпълнение  
Автор 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 е необходимо, за да се "слушат" клавиатурата и мишката, иначе цикъла ще ги блокира.

Който не знае закона на Ома да си ходи у дома!


Тема Re: прекъсване на изпълнениенови [re: vladko_lp]  
Автор vladko_lp (непознат )
Публикувано08.04.20 14:15



Благодаря ти отново 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



Хапчетата! Спешно!!







Всички темиСледваща тема*Кратък преглед
Клуб :  


Clubs.dir.bg е форум за дискусии. Dir.bg не носи отговорност за съдържанието и достоверността на публикуваните в дискусиите материали.

Никаква част от съдържанието на тази страница не може да бъде репродуцирана, записвана или предавана под каквато и да е форма или по какъвто и да е повод без писменото съгласие на Dir.bg
За Забележки, коментари и предложения ползвайте формата за Обратна връзка | Мобилна версия | Потребителско споразумение
© 2006-2024 Dir.bg Всички права запазени.