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:
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