Zitat:
Hallo ich suche einen Code für eine Procressbar diese soll nachdem auf einen Button geklickt wurde die Zeit abzählen welche sie aus einen Edit Feld ausließt ist das möglich udn wie leutet dann der Code?
Vielleicht solltest du erstmal an deiner Formulierung arbeiten... Tipp: Kommasetzung
Das erleichtert das lesen ungemein
Wie mir scheint hast du wirklich noch gar keine Ahnung von Delphi. Ich möchte Dir ein paar Tipps geben
Zum ersten solltest du verstehen, was sich hinter den ganzen Ereignissen verbirgt. In deinem Fall bräuchtest du das Ereignis OnClick bei einem Button. In dem Moment musst du den Wert aus dem Editfeld auslesen.
Dann solltest du den Maximalbereich der ProgressBar einstellen. Der maximale Wert ist ja logischerweise deine Zahl aus dem Editfeld.
Jetzt benötigst du eine Delay-Routine (dazu steht genug hier im Forum). Diese wartet dann immer eine Sekunde und dann wird die ProgressBar um eins erhöht. Fertig bist du...
Delphi-Quellcode:
procedure Wait(Time : Integer);
.
.
.
procedure TForm1.Button1OnClick(Sender: TObject);
var CountDown : Integer;
i : Integer;
begin
CountDown := StrToInt(Edit1.Text);
ProgressBar1.Max := CountDown;
for i := 0 to CountDown do begin
Wait(1000);
ProgressBar1.Position := i;
end;
end;