{"id":102,"date":"2007-08-28T16:36:00","date_gmt":"2007-08-28T16:36:00","guid":{"rendered":"http:\/\/www.webmundi.com\/?p=102"},"modified":"2020-08-18T16:47:32","modified_gmt":"2020-08-18T19:47:32","slug":"promove-um-estado-de-espera-no-aplicativo","status":"publish","type":"post","link":"http:\/\/localhost\/cmswebmundicom\/desenvolvimento-de-sistemas\/promove-um-estado-de-espera-no-aplicativo\/","title":{"rendered":"Promove um estado de espera no aplicativo"},"content":{"rendered":"
Promove um estado de espera no aplicativo<\/p>\n
procedure Delay(iMSecs: Integer);
\nvar
\nlnTickCount: LongInt;
\nbegin
\nlnTickCount := GetTickCount;
\nrepeat
\nApplication.ProcessMessages;
\nuntil ((GetTickCount – lnTickCount) >= LongInt(iMSecs));
\nend;<\/p>\n","protected":false},"excerpt":{"rendered":"
Promove um estado de espera no aplicativo procedure Delay(iMSecs: Integer); var lnTickCount: LongInt; begin lnTickCount := GetTickCount; repeat Application.ProcessMessages; until…<\/p>\n","protected":false},"author":2,"featured_media":29271,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_kadence_starter_templates_imported_post":false,"_kad_post_transparent":"","_kad_post_title":"","_kad_post_layout":"","_kad_post_sidebar_id":"","_kad_post_content_style":"","_kad_post_vertical_padding":"","_kad_post_feature":"","_kad_post_feature_position":"","_kad_post_header":false,"_kad_post_footer":false,"footnotes":""},"categories":[9,13],"tags":[27,28,14],"class_list":["post-102","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-delphi","category-desenvolvimento-de-sistemas","tag-delphi","tag-desenvolvimento-de-sistemas","tag-programacao"],"yoast_head":"\n