Define a global. Boolean type variable
Add to the ONTIMER event
VAR
Timerflag: boolean = true;
....................................
ONTIMER event processing
-------------------------------------------------
IF Timerflag Then
Begin
Timerflag: = FALSE;
{Just do something.
Timerflag: = true;
END;
-------------------------------------------------
This can solve some processing using Timer, but because the Message caused by the longer process process is constantly pressing the stack. . Causes stack overflow. .
