[Lazarus] Newbie

Howard Page-Clark hdpc at talktalk.net
Sat Mar 5 19:21:20 CET 2011


On 05/3/11 6:02, Milan Baša wrote:

> stringgrid1.Cells[1,1]:=inttostr(i);
> edit1.Text:=inttostr(i);
> sleep(1000);
> end;

> Progressbar is working, statictext is increasing numbers but every other
> components are frozen til the time program stops and at this moment i
> can see everywhwere number 10.

> I see no progress, only result 10.

Add Application.ProcessMessages; e. g. like this

...
edit1.Text:=inttostr(i);
Application.ProcessMessages;
sleep(1000);
...

Howard




More information about the Lazarus mailing list