Guten Tag ich benutze eine JvspecialProgress Bar um während des Vebindens zu einem
Mysql Server anzuzeigen, dass momentan gearbeitet wird. Um die Bar durchlaufen zu lassen benutze ich diesen Code:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if startbar=true then begin
if JvSpecialprogress1.Position=JvSpecialprogress1.Maximum then JvSpecialprogress1.Position:=0 else
JvspecialProgress1.StepIt;
end else JvSpecialprogress1.Position:=0;
end;
Die Startvariable wird am anfang des Verbindens auf true gesetzt:
Delphi-Quellcode:
procedure TForm1.connectbtnClick(Sender: TObject);
begin
startbar:=true;
if connectbtn.Caption='
Verbinden'
then
startconnection(
db,host,benutzer,pass)
else begin
mysql_close(_myCon);
MessageDlg('
Die Verbindung wurde erfolgreich getrennt',mtinformation,[mbOK],0);
connectbtn.Caption:='
Verbinden';
end;
startbar:=false;
end;
Wenn ich jetzt auf den Button klicke wird die ProgressBar aber erst gestartet, nachdem der MessageDlg angezeigt wurde, und wird nach dessen Schließen auch gleich wieder beendet. Liegt das an dem Timer? Oder wie kann man das anders lösen?