Zitat von
Satty67:
Ohne die Funktion zu bewerten..
Delphi-Quellcode:
begin
Probar1.Position := Probar1.Position +1;
case Probar1.Position of
10:Begin
bsSkinCheckRadioBox1.Checked := true;
bsSkinButton2.Visible := true;
end;
20: Begin
bsSkinCheckRadioBox3.Checked := true;
bsSkinButton1.Visible := true; sleep(900);
end;
40: Begin
bsSkinCheckRadioBox2.Checked := true;
bsSkinButton3.Visible := true; sleep(1900);
end;
82: Begin
bsSkinCheckRadioBox4.Checked := true;
bsSkinButton4.Visible := true;
end;
99: Begin
positiv.Visible := True;
negativ.Visible := False; sleep(1900);
end;
100: begin
bsSkinCheckRadioBox5.Checked := true;
Timer1.Enabled := false;
Probar1.Position := 100; // davon kann man ausgehen
bsSkinButton2.Enabled := True;
bsSkinButton1.Enabled := True;
bsSkinButton3.Enabled := True;
bsSkinButton4.Enabled := True;
// Teil 2
Assistant1.MsgDlg.Title := 'Installation Beendet !';
Assistant1.MessageDlg(Msg, mtInformation, [mbOK], 0);
Assistant1.Visible := True;
end;
end;
Application.ProcessMessages;
end;
Hey danke du hast mir das so gut erklärt ! Checke das echt total gut, ..also ich denke ich check es gut habs nun so hingekrigt mit rum testen.
oder ist das wider zu umständlich?
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Probar1.Value := Probar1.Value +1;
case Probar1.Value of
0..3, 5: begin Label1.Caption := 'Archive werden gesucht'; end;
6..9, 11: begin Label1.Caption := 'Archive werden Entpackt.'; end;
13..45, 47: begin Label1.Caption := 'Dateien werden installiert.'; end;
48..76, 79: begin Label1.Caption := 'Verknüpfungen werden erstellt.'; end;
80..89, 91: begin Label1.Caption := 'Registry wird geschriben.'; end;
92..99, 100: begin Label1.Caption := 'Installation beendet.'; end; end;
Application.ProcessMessages; end;
EDIT
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Probar1.Value := Probar1.Value +1;
case Probar1.Value of
0..3, 5: begin Label1.Caption := 'Archive werden gesucht'; sleep(1900); end;
6..9, 11: begin Label1.Caption := 'Archive werden Entpackt.'; sleep(1400); end;
13..45, 47: begin Label1.Caption := 'Dateien werden installiert.'; sleep(100); end;
48..76, 79: begin Label1.Caption := 'Verknüpfungen werden erstellt.'; sleep(1900); end;
80..89, 91: begin Label1.Caption := 'Registry wird geschriben.'; sleep(2900); end;
92..99, 100: begin Label1.Caption := 'Installation beendet.'; end; end;
Application.ProcessMessages; end;
Für was ist eigentlich Application.ProcessMessages wichtig... den es Funktioniert auch wen ich es weg lasse.
Das ist zwar eine gut simulation doch ich will eigentlich ein Richtigen Progressbar der durch die Daten-Menge bestimmt wird.
Lg
ralf