Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by stahli,
18. Aug 2008
procedure TForm1.FormActivate(Sender: TObject);
begin
ProgressBar.Min := 0;
ProgressBar.Max := 60;
ProgressBar.Position := ProgressBar.Max;
ProgressBar.Step := -1;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by stahli,
18. Aug 2008
ProgressBar.Min := 0;
ProgressBar.Max := 60;
ProgressBar.Position := ProgressBar.Max;
ProgressBar.Step := -1;
Timer jede Sekunde feuern lassen und dabei:
ProgressBar.StepIt;
if ProgressBar.Position < 1 then Close;