Procedure nach zeit aufrufen??

[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