Отследить цепь событий.

Алгоритмы, что и зачем.

Отследить цепь событий.

Сообщение Addmin » 22 май 2018, 14:37

Для не сильно отягощённого сопровождения проектов было-бы не плохо иметь такой фкнкционал, разумеется чтобы переменная MyEvent могла с выполнением каждого звена увеличиваться на единицу.
Код: выделить все
TForm1.MenuItem11Click;
begin
MyEvent:=1;
операции подготовки к TForm1.MenuItem12Click;
end;
 
TForm1.MenuItem12Click;
begin
if MyEvent=1 then продолжение и окончание процедуры начатой с процесса подготовки в TForm1.MenuItem11Click;
MyEvent:=0;
end;
 
ЛЮБОЕ СОБЫТИЕ TTreeView кроме TForm1.MenuItem11Click и TForm1.MenuItem12Click;
begin
MyEvent:=0;
и потом выполняются сами обработчики - какие там будут в итоге я не знаю, их может быть много, но сначала выполнится MyEvent:=0;
end;
.
Задал вопрос на киберфоруме, но там изменили название темы, изменили код, свели испрашиваемое к абсурду.
http://www.cyberforum.ru/lazarus/thread2248903.html
Там вообще за положняк окружащих глупцами выставлять, особенно если деи какие-то новые. Но я эту тему знаю с первой заявки в ПБ ЮТ. Я знаю что такое плагиат, и просто так я ничего теперь не отдам. Понятно для чего они затирают, исправляют, когда что-то новое появляется. Шара кончилась.
Addmin
Администратор
 
Сообщений: 26
Зарегистрирован: 24 июн 2017, 10:08

Вернуться в Алгоритмы.

Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0

cron