Labels und StatusBar werden zuspät aktualisiert

**ickehausen**

Hallo,

ich habe eine Anwendung gestrickt, die Datei aus einer Text-Datei in eine andere Datei konvertiert.
Gestartet wird die Konvertierung mit einem Button-Click. Da die Konvertierung einige Zeit in Anspruch nimmt, soll beim Clicken der StatusBar anzeigen, dass die Datei in Bearbeitung ist. Wenn die Konvertierung durchgeführt worden ist, soll sich der Text in Fertig ändern. Hier der Code:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.BitBtn1Click(Sender: TObject);

begin

  StatusBar1.Panels[0].Text := 'Datei wird erzeugt!';

  HHJahr := MaskEdit1.EditText;

  BMon := MaskEdit2.EditText;

  if (StrToInt(BMon) < 1) or (StrToInt(BMon) > 12) Then

  begin

    StatusBar1.Panels[0].Text := 'Bitte einen Monat zwischen 01 und 12 eingeben!';

    exit;

  end;

  if CheckBoxBeamte.Checked then DTA((Quellpfad + Quelldatei_Beamte),(Zielpfad + Zieldatei_Beamte));

  if CheckBoxBeschaeftigte.Checked then DTA((Quellpfad + Quelldatei_Beschaeftigte),(Zielpfad + Zieldatei_Beschaeftigte));

  StatusBar1.Panels[0].Text := 'Fertig!';

end;

DTA ist die Procedure, welche die Konvertierung erledigt.

Labels und StatusBar werden zuspät aktualisiert

Labels und StatusBar werden zuspät aktualisiert

Forumregeln