How to execute a procedure from time to time in delphi? -


मैं अपना प्रोग्राम

  ShowMessage ('Hello world!') चाहता हूं;   

हर एक मिनट, मैं यह कैसे कर सकता हूँ?

सब से पहले मैं MessageDlg () फ़ंक्शन के साथ ShowMessage () को बदलता हूं। MessageDlg () के साथ आप पढ़ सकते हैं कि संवाद विंडो बंद हो गई थी और एक ही समय में कई संवाद बक्से दिखाने से आवेदन ब्लॉक किया गया था।

कोड को समय-समय पर निष्पादित करने के लिए TTimer घटक का उपयोग करें। 60'000 मिलीसेकेंड के लिए अंतराल सेट करना हर मिनट कोड निष्पादित करेगा।

  प्रक्रिया TForm1.FormCreate (प्रेषक: टूबैक्साइड); टाइमर शुरू करें। अंतराल: = 60000; समाप्त;   

TTimer घटक के ऑन-टिमर इवेंट हैंडलर में MessageDlg () कोड जोड़ें। डायलॉग बॉक्स बंद करने के बाद TTimer exectution बंद करें और डायलॉग बॉक्स बंद होने के बाद वापस लें। <पूर्व> प्रक्रिया TForm1.Timer1Timer (प्रेषक: टूबैक्ट); शुरू टाइमर 1। सक्षम: = गलत; अगर MessageDlg ('test', mtConfirmation, [mbOK], 0) & lt; & gt; 0 तब टाइमर 1। सक्षम: = सत्य; समाप्त;

Comments

Popular posts from this blog

Verilog Error: output or inout port "Q" must be connected to a structural net expression -

Installing croogo for cakephp -