[SUCHE] Mentor/Meister /Leherer

[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;