Problem:Checkbox & Radiobutton

[DeddyH]

Ich denke mal so:

Delphi-Quellcode:

procedure TForm5.CheckBox1Click(Sender: TObject);
const DatumsFormat: array[Boolean] of string = ('dd.mm.yyyy','mm.dd.yyyy');
begin
  if not checkbox1.checked then
    Form3.Statusbar1.Panels[4].Text:=''
  else
    Form3.Statusbar1.Panels[4].Text:='Datum:   '+FormatDateTime(DatumsFormat[RadioButton2.Checked], Now);
end;

Allerdings wäre der Code für den Klick auf den entsprechenden RadioButton noch interessant.

[edit] Naja, immerhin ist mein Code etwas anders [/edit]