|
Thanks mate, I will try.
I was also thinkig about this:
procedure TForm1.Delay(msecs:integer);
var
FirstTickCount:longint;
begin
FirstTickCount:=GetTickCount;
repeat
Application.ProcessMessages; {allowing access to other
controls, etc.}
until ((GetTickCount-FirstTickCount) >= Longint(msecs));
end;
Would omitting 'Application.ProcessMessages' help?
I don't mind if machine does nothing else while waiting, this app is for focus, therefore it will be used very occasionally.
|