Auslesen, wie lange ein Timer schon läuft.

[Sharky]

Hai Toxman im Formum.

Mache es do so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 zaehler := 0;
 Timer1.Interval := 1000;
 Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Inc (zaehler);
 Case zaehler of
  8 : Label1.Caption := 'Gleich sind 10 Sek. vorbei';
  10 : begin
        Label1.Caption := 'Fertisch';
        Timer1.Enabled := False;
       end;
  end;
end;

zaehler ist eine globale Variable vom Typ Int.