Well, okey I see your point. But how can I avoid these recursive events, even on a small & simple code? I believe these recursive events is most necessary, at least to do things on an interactive window.
My question is still; How do I avoid the process freezing when clicking on the title border?
Try run this simple code. When clicking on that windows title border, you'll see the clock freezes for a short time.
DIM Form AS QFORM
DIM Label AS QLABEL
DIM Timer1 AS QTIMER
DECLARE SUB showTime
Form.Center
Form.BorderStyle = 1
Form.DelBorderIcons(2)
Form.Width = 200
Form.Height = 100
Label.PARENT = Form
Label.Left = 18
Label.CAPTION = STR$(TIMER)
Label.Top = 16
Label.Visible = 1
Timer1.Interval = 1
Timer1.Enabled=1
Timer1.OnTimer=showTime
SUB showTime
Label.CAPTION = STR$(TIMER)
END SUB
Form.SHOWMODAL
|