Hello Med. It seems to me that you created a perpetual loop in your code. You assigned this to onpaint():
procedure tmainfo.paintGrEv(const sender: twidget; const acanvas: tcanvas); begin // this will be a perpetual loop because it will re-paint after the execution of the procedure twidgetgrid(sender).frame.caption:=inttostr(length(twidgetgrid(sender).frame.caption)); end; IMHO, you should use something else than onpaint(). Could you try the demo,zip in attachment: demo.zip <http://mseide-msegui-talk.13964.n8.nabble.com/file/t2/demo.zip> Fre;D -- Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/ _______________________________________________ mseide-msegui-talk mailing list mseide-msegui-talk@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk