Hallo,
ich hab mal wieder ein Problem. Ich versuche, eine Progressbar mit zwei Timern zu verknüpfen. Das Formular soll mithilfe von Timer1 5sec lang aufgerufen werden, in der Zwischenzeit soll mittels Timer2 alle 0,5sec die Progress-Position um +4 erhöht werden. Nach Ablauf von Timer2 soll dieser erneut gestartet werden, um den Progress fortzuführen. Nach Ablauf der 5sec soll das Formular wieder geschlossen werden. Ich kam auf folgendes:
Delphi-Quellcode:
procedure TForm3.FormCreate(Sender: TObject);
var
timer1, timer2 : TTimer;
begin
timer1.enabled:= true;
timer2.enabled:= true;
if Timer2.enabled = true then
begin
progressbar1.position:=progressbar1.position+4;
end;
if Timer2.enabled = false then
Timer2.enabled := true;
if Timer1.Enabled = false then
close;
Form1.show;
end;
Vielleicht könnt ihr mir sagen, wo der Fehler liegt.
MfG
Honigdachs