Ach du bist das.
Die TProgressBar befindet sich auf dem Reiter "
Win32".
Einen Fortschrittsbalken kannst du auf verschiedene Art und Weise lösen. Eine anschauliche wäre beispielsweise diese hier:
Delphi-Quellcode:
var
Form1: TForm1;
Counter_Sec: Integer = 0;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
ProgressBar1.Max := 120;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(Counter_Sec);
ProgressBar1.Position := Counter_Sec;
if Counter_Sec = 120 then
begin
// The End
end;
end;
Wenn du mit dem Canvas umgehen kannst, dann kannst du auch auf diesem deine eigene (schönere) zeichnen.