Hi,
lager den Code in eine eigene Procedure aus:
Delphi-Quellcode:
procedure TForm3.ShowDate(Value : Boolean);
const DatumsFormat: array[Boolean] of string = ('dd.mm.yyyy','mm.dd.yyyy');
begin
if not Value then
Form1.Statusbar1.Panels[4].Text:=''
else
Form1.Statusbar1.Panels[4].Text:='Datum: '+FormatDateTime(DatumsFormat[RadioButton4.Checked], Now);
end;
Dann kannst du diese an jeder beliebigen Stelle mit dem entsprechenden Parameter aufrufen:
Delphi-Quellcode:
procedure TForm3.CheckBox19Click(Sender: TObject);
begin
ShowDate(checkbox19.checked);
end;
Und an jeder anderen Stelle, wenn das Datum aktualisiert werden soll. Die Timerlösung hilft auf jeden Fall das Datum zu aktualisieren wenn ein Datumswechsel auftritt und gerade keiner was tut (Mitternacht).
Gruß oki