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;