Hilfe bei meinen Projekt (Mehrere Prozeduren gleichzeitig laufen lassen))

[Perlsau]

Zitat von Redak:

Also ich haben noch nie mit einen Timer gearbeitet und weiß auch nicht so genau wie es funktioniert.

Die Verwendung eines Timers ist eigentlich recht einfach:

1. Wirf eine TTimer-Komponente auf dein Formular und nenne sie z.B. MeinTimer.
2. Stelle im Propery Interval ein, in welchen Zeitabständen (Millisekunden) dein Timer auslösen (triggern) soll.
3. Setze das Property Enabled im Objektinspektor auf False.
4. Wähle im Objektinspektor den Reiter Ereignisse und doppelklicke in das Property OnTimer (das einzige Property), so daß ein Procdure-Rumpf entsteht.
5. Dort hinein schreibst du nun, was geschehen soll, wenn die Eregnisbehandlung deines Timers ausgelöst wird:

Delphi-Quellcode:

procedure TFormMain.MeinTimerTimer(Sender: TObject);
begin
  TueIrgendWas;
end;

5. Setze Enabled auf True, wenn der Timer arbeiten soll:

Delphi-Quellcode:

procedure TFormMain.Button1Click(Sender: TObject);
begin
  MeinTimer.Enabled := True;
end;

Nun wird einmal pro Sekunde die Methode TueIrgendWas aufgerufen:

Delphi-Quellcode:

procedure TFormMain.TueIrgendWas;
begin
  MachIrgendwas;
end;