"=>"
Das gibt es so Meiner Meinung nach nicht. Der Compiler meckert auch
Hier nochmal alles, so wie ich es momentan probiere:
Delphi-Quellcode:
procedure TForm1.Timer2Timer(Sender: TObject);
begin
if JvXPProgressBar1.Position >= 100 then
begin
Timer2.Interval := 3500; // habs hier manuell nur auf 3500 gesetzt weil sonst bekomme ich hunderte Fehlerfenster im Millisekundenabstand
Split(ExePfad+'Project1.exe', InstallVerz+'\Test.exe'); // Test aus Project1.exe extrahieren
JvXPProgressBar1.Position := 0;
Timer3.Enabled := True;
Timer2.Enabled := False; // dann timer AUSMACHEN, was aber NICHT passiert! **
end else
begin
Label4.Caption := 'Aktuelle Datei: Test.exe';
JvXPProgressBar1.Position :=
JvXPProgressBar1.Position + 5;
InstallStatusGesamt := JvXPProgressBar2.Position;
Label25.Caption := Format('Verarbeitung Gesamt: %d%%',
[InstallStatusGesamt]);
JvXPProgressBar2.Position :=
JvXPProgressBar2.Position + 4;
end;
end;
Ich verstehe das einfach nicht. Normal MÜSSTE (!!!) doch der Timer3 angehen, und Timer2 aus?