Datum in Statusleiste

**Störtebeker**

Hallo,

ich habe ein kleines Problem mit dem Anzeigen des Datums in der Statusleiste.

Vorhanden:
2 Radiobutton
1) Tag / Monat / Jahr (RadioButton3)
2) Monat / Tag / Jahr (RadioButton4)

1 Checkbox
1) Datum anzeigen

"Datum anzeigen" hat folgenden Code:

markieren

Delphi-Quellcode:

			procedure TForm3.CheckBox19Click(Sender: TObject);

const DatumsFormat: array[Boolean] of string = ('dd.mm.yyyy','mm.dd.yyyy');

begin

  if not checkbox19.checked then

    Form1.Statusbar1.Panels[4].Text:=''

  else

    Form1.Statusbar1.Panels[4].Text:='Datum:   '+FormatDateTime(DatumsFormat[RadioButton4.Checked], Now);

end;

Nun ist das Problem, dass sich das Datum erst ändert, wenn ich die Checkbox aus- und dann wieder aktiviere.

P.S.: Die Radiobutton haben die Codes:

//Form3.Statusbar1.Panels[4].Text:='Datum: '+FormatDateTime('dd.mm.yyyy', Now); und

//Form3.Statusbar1.Panels[4].Text:='Datum: '+FormatDateTime('mm.dd.yyyy', Now); Man hatte mir gesagt, mit dem Code ganz oben, kann ich die Codes des Radiobutton rausnehmen. Ich habe sie jetzt mit "//" einfach in ein Kommentar umgewandelt.

Was kann man da machen, dass das Datum auch wechselt, ohne dass ich erst die Checkbox zweimal auslösen muss?

mfG
Störtebeker

Datum in Statusleiste

Datum in Statusleiste

Forumregeln