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

Post a Comment

Popular posts from this blog

c# - ASP.NET MVC - Attaching an entity of type 'MODELNAME' failed because another entity of the same type already has the same primary key value -

In brief, the wrapper module is inserted during posting and the status of an entry is changed to 'modified' . Before changing the state, the state is set to 'separate', but calling attachments () causes the same error to be thrown away. I am using EF 6. Model / wrapper class public class avi model {public A is a {get; Set; } Public listing & lt; B & gt; B {received; Set; } Public cc {receipt; Set; }} Administrator edit public functioning (int? id) {if (id == null) {new HttpStatusCodeResult (HttpStatusCode.BadRequest); } If (! Conveyor Access (id.Value)) new HTTPTitus code result (HTTP status code. Forbidden); Var aViewModel = new AViewModel (); aViewModel.A = db.As.Find (id); If (aViewModel.Receipt == zero) {return HttpNotFound (); } aViewModel.b = db.Bs.Where (x => x.aid == id.Value) .Oolist (); AViewModel.Vendor = db.Cs.Where (x => x.cid == aViewModel.a.cID) .FirstOrDefault (); See Return (aViewModel); } [HTPFost] [Valid AntitiferousTeacon...
Read more

jasper reports - How to center align barcode using jasperreports and barcode4j -

I use iReport 5.5.0 . How to align a barcode component to the center The relevant piece of my jrxml is below & Lt; JR: Code 128 xmlns: JR = "http://jasperreports.sourceforge.net/jasperreports/components" xsi: schemaLocation = "http://jasperreports.sourceforge.net/jasperreports/components http: //jasperreports.sourceforge Purge / xsd / components.xsd "textPosition =" bottom "& gt; & Lt; Jr: codeExpression & gt; & Lt; [CDATA [$ F {number}]] & gt; & Lt; / Jr: codeExpression & gt; & Lt; / Jr: Code 128 & gt; & Lt; / componentElement & gt; "Text" itemprop = "text"> Create a style after this, it is called "barcode", like: & lt; Style name = "barcode" fontName = "Helvetica" fONTSIZE = "10" hAlign = "center" valign = "center" /> and set the property of your barcode element to "barcode".
Read more

django - CommandError: You must set settings.ALLOWED_HOSTS if DEBUG is False -

I use Django 1.6.5 with settings in my program txsite: DEBUG = true I set the lie to debug, but when I get the runner , I get the following error: CommandError: You have to set the settings. OLOWOWHESTS If DEBUG is False I ALLOWED_HOSTS = ['127.0.0.1', 'localhost'] but I get the same error. Does anyone know this address? Try ALLOWED_HOSTS = ['*'] Less secure If you are not on a firewall or public LAN, but what I use and it works. Edit: Interestingly enough, I have to add some of my 1.8 projects, even if DEBUG = True . Why so very uncertain
Read more