Procedure nach zeit aufrufen??

[greyblue]

Hallo :-)

ich möchte dass ein Button jede 5 Min automatisch angeklickt werden,geht es?

Danke voraus ..

[himitsu]

Das ruft alle 5 Minuten die Ereignis-Prozeduzedur auf:
(Hier das Beispiel für die Standard-Ereignis-Prozeduzedur vom Button1)

Delphi-Quellcode:

{Button1: TButton}
{Timer1: TTimer  }

{Timer1.Interval = 300000}

Procedure TForm1.Button1Click(Sender: TObject);
  Begin
    {Irgendwas machen}
  End;

Procedure TForm1.Timer1Timer(Sender: TObject);
  Begin
    Button1Click(Sender);
  End;

Das ruft zu jeder vollen 5. Minute (nach der Uhrzeit) die Ereignis-Prozeduzedur auf:

Delphi-Quellcode:

{Button1: TButton}
{Timer1: TTimer  }

{Timer1.Interval = 1000}

Uses Math;

Var nextButton1Click: TDateTime;

Procedure TForm1.FormCreate(Sender: TObject);
  Begin
    nextButton1Click := Ceil((Now * 288) / 288;
  End;

Procedure TForm1.Button1Click(Sender: TObject);
  Begin
    {Irgendwas machen}
  End;

Procedure TForm1.Timer1Timer(Sender: TObject);
  Begin
    If Now < nextButton1Click Then Exit;
    nextButton1Click := Ceil((nextButton1Click * 288 + .5) / 288;
    Button1Click(Sender);
  End;

nicht getestet - Angaben ohne Gewähr

[Duffy]

Hallo greyblue,
und falls Du auf einen Button aus einer fremden Anwendung klicken willst, sollte Dir das weiterhelfen.

Bye
Claus

[greyblue]

Vielen Dank !!!

noch ne Frage, was ist der Unterschied zwischen alle 5min und jede 5min?

[greyblue]

Zitat:

Zitat von Duffy

Hallo greyblue,
und falls Du auf einen Button aus einer fremden Anwendung klicken willst, sollte Dir das weiterhelfen.

Bye
Claus

ich klicke den Button in dem selben Programm ..
trotzdem vielen Dank !!