Forum Discussion
AlexKaras
13 years agoChampion Level 3
Hi William,
Some untested DelphiScript-like pseudo-code (just because it supports try/finally) off top of my head:
var boolInHandler
procedure OnStartTest(); // can be event handler for the OnStartTest event - see help for more details
begin
boolInHandler := false;
...
end;
procedure TimerHandler();
begin
if (boolInHandler) then
exit;
boolInHandler := true;
try
...
finally
boolInHandler := false;
end;
end;
Some untested DelphiScript-like pseudo-code (just because it supports try/finally) off top of my head:
var boolInHandler
procedure OnStartTest(); // can be event handler for the OnStartTest event - see help for more details
begin
boolInHandler := false;
...
end;
procedure TimerHandler();
begin
if (boolInHandler) then
exit;
boolInHandler := true;
try
...
finally
boolInHandler := false;
end;
end;
Related Content
Recent Discussions
Check PopupMenu exists
Solved3 days agomfoster711- 4 days agosimonaferrara
- 4 days agomacheshmeh