[HELP]Assistant schaltet sich aus

**Gabberjool**

Hallo alle,
Ich habe folgendes problem. Nach dem der Timer mit dem Status auf 100% ist, sollte er über den Assistant die Message ausgegeben werde. Die man dann mit Ok bestätigen soll.

Das Problem ist, das sich der Assistant schliß sobald man auf Ok klickt obwohl er das nicht sollte.

Wisst ihr evt woran das ligt ?
Besten dank schonmal...

zusammenfalten · markieren

Delphi-Quellcode:

			const

  Msg = 'Script wurden Installiert, du kannst nun die Buttons benutzen^.';

begin Probar1.Position := Probar1.Position +1;

      Application.ProcessMessages;

If Probar1.Position = 10 then

  Begin bsSkinCheckRadioBox1.Checked := true;

        bsSkinButton2.Visible := true; end;

If Probar1.Position = 25 then

  Begin bsSkinCheckRadioBox3.Checked := true;

        bsSkinButton1.Visible := true;  end;

If Probar1.Position = 48 then

  Begin bsSkinCheckRadioBox2.Checked := true;

        bsSkinButton3.Visible := true;  end;

If Probar1.Position = 82 then

  Begin bsSkinCheckRadioBox4.Checked := true;

        bsSkinButton4.Visible := true;  end;

If Probar1.Position = 99 then

  Begin positiv.Visible := True;

        negativ.Visible := False; end;

If Probar1.Position = 100 then

  begin bsSkinCheckRadioBox5.Checked := true;

        Timer1.Enabled := false;

        Probar1.Position := 100;

        bsSkinButton2.Enabled := True;

        bsSkinButton1.Enabled := True;

        bsSkinButton3.Enabled := True;

        bsSkinButton4.Enabled := True;

        Assistant1.MsgDlg.Title := 'Installation Beendet !';

        Assistant1.MessageDlg(Msg, mtInformation, [mbOK], 0); end;  end;

Hier mal der ganze code... evt ligts da irgendwo

zusammenfalten · markieren

Delphi-Quellcode:

			implementation

{$R *.dfm}

// Timer //////////////////////

//

procedure TForm1.Timer1Timer(Sender: TObject);

const

  Msg = 'Script wurden Installiert, du kannst nun die Buttons benutzen^.';

begin Probar1.Position := Probar1.Position +1;

      Application.ProcessMessages;

If Probar1.Position = 10 then

  Begin bsSkinCheckRadioBox1.Checked := true;

        bsSkinButton2.Visible := true; end;

If Probar1.Position = 25 then

  Begin bsSkinCheckRadioBox3.Checked := true;

        bsSkinButton1.Visible := true;  end;

If Probar1.Position = 48 then

  Begin bsSkinCheckRadioBox2.Checked := true;

        bsSkinButton3.Visible := true;  end;

If Probar1.Position = 82 then

  Begin bsSkinCheckRadioBox4.Checked := true;

        bsSkinButton4.Visible := true;  end;

If Probar1.Position = 99 then

  Begin positiv.Visible := True;

        negativ.Visible := False; end;

If Probar1.Position = 100 then

  begin bsSkinCheckRadioBox5.Checked := true;

        Timer1.Enabled := false;

        Probar1.Position := 100;

        bsSkinButton2.Enabled := True;

        bsSkinButton1.Enabled := True;

        bsSkinButton3.Enabled := True;

        bsSkinButton4.Enabled := True;

        Assistant1.MsgDlg.Title := 'Installation Beendet !';

        Assistant1.MessageDlg(Msg, mtInformation, [mbOK], 0); end;  end;

// Form Setting ///////////////////////

//

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

const

  Msg = 'Bist du sicher das du das Programm Verlassen Wilst ?';

begin Assistant1.MsgDlg.Title := 'Beenden';

      Assistant1.MessageDlg(Msg, mtInformation, [mbYes, mbNo], 0);

      Assistant1.Visible := False; end;

procedure TForm1.FormCreate(Sender: TObject);

begin Timer1.Enabled := True;

      positiv.Visible := False;

      Assistant1.Visible := True; end;

// Buttons Aktionen////////////////////////////

//

procedure TForm1.bsSkinButton1Click(Sender: TObject);

  begin ShellExecute(0, Nil, PChar('C:\Programme\Counter Strike Script Installer\ScrGui\'), Nil, Nil, SW_NORMAL); end;

procedure TForm1.bsSkinButton4Click(Sender: TObject);

  begin ShellExecute(0, Nil, PChar('C:\Programme\Counter Strike Script Installer\ScrRcCfg\'), Nil, Nil, SW_NORMAL); end;

procedure TForm1.bsSkinButton3Click(Sender: TObject);

  begin ShellExecute(0, Nil, PChar('C:\Programme\Counter Strike Script Installer\ScrPic\'), Nil, Nil, SW_NORMAL); end;

procedure TForm1.bsSkinButton2Click(Sender: TObject);

  begin ShellExecute(0, Nil, PChar('C:\Programme\Counter Strike Script Installer\ScrTool\'), Nil, Nil, SW_NORMAL); end;

procedure TForm1.bsSkinXFormButton1Click(Sender: TObject);

const

  Msg = 'Bist du sicher das du das Programm Verlassen Wilst ?';

begin Assistant1.MsgDlg.Title := 'Beenden';

      Assistant1.MessageDlg(Msg, mtInformation, [mbYes, mbNo], 0);

      Assistant1.Visible := False;

      close; end;

end.

[HELP]Assistant schaltet sich aus

[HELP]Assistant schaltet sich aus

Forumregeln