Hallo,
ich habe zwei Formulare. Auf dem einen ist ein Timer mit folgendem Code:
Delphi-Quellcode:
procedure TForm4.Timer1Timer(Sender: TObject);
begin
if Progressbar2.position > 99 then begin
progressbar2.position := 0;
end
else
begin;
progressbar2.position := progressbar2.position + 1;
form3.Timer2.enabled:=true;
end;
end;
Jetzt soll die Form nach einer bestimmten Zeit durch die andere Form ersetzt werden. Dazu verwende ich einen Timer auf der zweiten Form mit dem Code:
Delphi-Quellcode:
procedure TForm3.Timer2Timer(Sender: TObject);
begin
Timer2.Interval := 10;
if ActiveControl <> nil then begin
ActiveControl.Left := ActiveControl.Left + 1;
Form3.show;
Form4.Hide;
form4.Timer1.Enabled:=false;
end;
end;
Doch das scheint nicht zu funktionieren. Die Progressbar läuft und läuft und läuft. Ein Formwechsel findet allerdings nicht statt.
Schonmal im Voraus vielen Dank.