[Solved] Why my Thread run after Form creation?
unit AniThread; interface uses Classes, Windows, Controls, Graphics; type TAnimationThread = class(TThread) private { private declarations } FWnd: HWND; FPaintRect: TRect; FbkColor, FfgColor: TColor; FInterval: integer; protected procedure Execute; override; public constructor Create(paintsurface : TWinControl; {Control to paint on } paintrect : TRect; { area for animation bar } bkColor, barcolor : TColor; { colors … Read more