Hallo,
hier mal ein Beispiel wie ich es mal mit nem Edit gemacht habe.
Delphi-Quellcode:
procedure TForm1.Button5Click(Sender: TObject);
//Edit, Füllen
begin
if not b then
begin
Edit1.Text := '0'; //Hier dann Label nehmen
Timer1.Enabled := True;
b := True;
Button5.Caption := 'Stoppen';
end
else if b then
begin
Timer1.Enabled := False;
b := False;
Button5.Caption := 'Füllen';
end;
end;
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
//im Edit die Zahl hochzählen
begin
Edit1.Text := FloatToStr(StrToFloat(Edit1.Text) +1);
end;
HTH.
Grüsse, Daniel
