Automatisches Hochzählen nach Klick auf den Button

[nairam]

Hallo,

Bin noch relativ neu in Delphi und übe mich in verschiedenen Basicübungen.
Grad hänge ich an einem Problem: Ich will, dass die Zahl x nach dem Klick auf einen Button automatisch +1 pro Sekunde hochzählt.
Wie stell ich das an?
Ich hoffe jemand kann mir helfen.

[Ritsch]

Ach sorry, habe mich verlesen.

Kannst es über einen Timer lösen.
Den Intervall des Timers auf 1000 setzen und dann beim OnTimer deine Variable erhöhen.

[Aviator]

Am einfachsten mit einem TTimer. Intervall auf 1000ms (Standard) stellen und bei Klick auf den Button starten. Im OnTimer Event des Timers dann die Variable hochzählen.

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
begin
  Timer.Enabled := True;
end;

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Inc(MyVar);

// Evenutell noch Ausgabe auf ein Label
  Label1.Caption := IntToStr(MyVar);
end;

[nairam]

Danke ^^