Aha. The application.processmessages did the trick.
Ether by replacing the mainfo.update with application.processmessages or by putting application.processmessages right after the application.beginwait Den 27-07-2012 20:16, Martin Schreiber skrev: > On Friday 27 July 2012 13:27:39 Christian Nobel wrote: >> Hi Martin. >> >> Project attached. >> > Below code works for me. > " > procedure tmainfo.opencsvfile(const sender: TObject); > var > y: integer; > begin > if tfiledialog1.execute(fdk_open) = mr_ok then > begin > application.beginwait; > try > y:= 0; > while y < 10 do begin > tedit2.text:='Post '+IntToStr(y)+' læst'; > application.processmessages; > sleep(1000); > inc(y); > end; > [...] > finally > application.endwait; > end; > " > > Martin > > ------------------------------------------------------------------------------ > Live Security Virtual Conference > Exclusive live event will cover all the ways today's security and > threat landscape has changed and how IT managers can respond. Discussions > will include endpoint security, mobile security and the latest in malware > threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/ > _______________________________________________ > mseide-msegui-talk mailing list > [email protected] > https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk > ------------------------------------------------------------------------------ Live Security Virtual Conference Exclusive live event will cover all the ways today's security and threat landscape has changed and how IT managers can respond. Discussions will include endpoint security, mobile security and the latest in malware threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/ _______________________________________________ mseide-msegui-talk mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
