Progressbar an Timer gebunden

[Rene P.]

Hi all!

Ich habe da ein kleines Problem mit der Anzeige einer Progressbar,
und zwar sollte das in etwa so aussehen:

Ich habe ein Fenster, in dem eine Progressbar liegt
Nun habe ich einen Timer, der das Fenster 6sek lang anzeigt
Nach den 6sek wird das Fenster geschlossen und ein anderes wird geöffnet.

Nun habe ich das Problem, dass die 6sek lang die Progressbar von 0% bis 100% durchlaufen soll,

leider weiss ich nicht, wie ich das anstellen sollte.
Könnte mir da vielleicht jemanden helfen?

Vielen Dank!

[Jens Schumann]

Hallo Rene,<br>
probiers mal damit.<br>
<pre>
<font face="Verdana" size="1" color="#000000">unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, ComCtrls;

type
TForm1 = class(TForm)
ProgressBar1: TProgressBar;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private-Deklarationen }
FTime : Integer;
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.StepIt;
Inc(FTime);
If FTime= 6 then
Close;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
Timer1.Enabled:=True;
end;

end.
</font></pre>
Forumlar unit:<br>
<pre>
<font face="Verdana" size="1" color="#000000">object Form1: TForm1
Left = 421
Top = 216
Width = 288
Height = 177
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object ProgressBar1: TProgressBar
Left = 44
Top = 92
Width = 189
Height = 13
Min = 0
Max = 360
Step = 60
TabOrder = 0
end
object Timer1: TTimer
Enabled = False
OnTimer = Timer1Timer
Left = 20
Top = 16
end
end</font></pre>
Jens Schumann<br&gt