Eigenen Timer schreiben

[bumpelwumpel]

Zitat von himitsu:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
    Timer1Count: Integer;
    procedure Timer(dauer: integer);
  end;

procedure TForm1.Timer(dauer: integer);
begin
  Timer1Count := dauer div Timer1.Interval; //<-- Wozu die Dauer durch das Interval teilen?
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Tag := Timer1.Tag + 1;
  If Timer1.Tag >= Timer1Count Then Timer1.Enabled := False;
  ListBox1.Items.Add(IntToStr(Timer1.Tag)); //zum test der ausgabe
end;

Hey, danke.
Nun ich wollte mal ausprobieren wie man einen Timer machen könnte.
Das mit Application.Processmessages funktioniert gut doch ich benutz doch lieber den internen Timer. (Ich hatte mal ziemliche Probleme mit ihm, deshalb wollte ich ihn nicht benutzen. Doch der Code von himitsu funktioniert.)