Auch wenn es nicht ganz zum Thema passt:
Delphi-Quellcode:
procedure TForm1.Timer3Timer(Sender: TObject);
begin
with Progressbar1 do
begin
Position := Position + 1;
Case Position of
97 : Label16.caption := '3...';
98 : Label16.caption := '2...';
99 : Label16.caption := '1...';
100: Timer3.Enabled := False;
end;
end;
if not Timer3.Enabled then
Close;
end;
[edit]
Hab dann doch noch was zum Thema xD.
Delphi-Quellcode:
procedure TForm2.FormCreate(Sender: TObject);
begin
timer4.Enabled:=true;
end;
Wird beim starten des Programms ausgeführt. Du solltest das Timer4.Activate; im OnShow-Event des 2. Formulars machen.
[/edit]
MfG
freak