Datum in Statusleiste

[oki]

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