Willkommen in der Delphi-PRAXiS
ganz einfach:
Delphi-Quellcode:
if ProgressBar1.Position=100 then
Form2.ShowModal;
Das dann nicht der Timer ewig weiter läuft stellst du ihn am besten am ende deiner Prozedur ab...
z.B.:
Delphi-Quellcode:
procedure TForm1.Timer1Timer;
begin
Timer1.Interval:=1000;
ProgressBar1.Position:= ProgressBar1.Position +1;
if ProgressBar1.Position=100 then
Form2.ShowModal;
Timer1.Enabled:=False;
end;
//Edit
*Schlechtschraibfehler*