Ikke bare er Application.ProcessMessages ganske lang tid å skrive, ofte ekstra funksjonalitet trenger å bli kalt når det brukes. Til dette formålet har jeg laget to grunnleggende wrappers som kan brukes i stedet:
...
prosedyre ProcessMsg (); overbelastning; Prosedyren ProcessMsg (konst SleepFor: Word); overbelastning,
implementering
prosedyre ProcessMsg (); begynne ProcessMsg (0); enden,
prosedyre ProcessMsg (konst SleepFor: Word); overbelastning; begynne Application.ProcessMessages (); Sleep (SleepFor); enden,
...
Nå i stedet for å skrive Application.ProcessMessages (); i koden din kan du skrive ProcessMsg (); i stedet. Og i fremtiden kan du utvide hva som skjer rundt Application.ProcessMessages samtaler uten å besøke mange forskjellige områder av koden.
Hvis du bruker Delphi 2005 eller høyere kan du legge den inline direktiv til prosedyren erklæringen.
Ovenfor funksjoner krever " Forms " og " Windows " som skal legges til bruk klausul.
Disse prosedyrene kan lett bli lagt til kode i denne artikkelen (http://www.howtodothings.com/ViewArticle.aspx?Article=758)