MonthCalendar-Wert in Edit-Feld

[Tester]

Hi!

Du mußt den Code auch auf das entsprechende Ereignis setzen, bsp onclick auf dem MonthCalender.

Code:

procedure Tutest.MonthCalendar1Click(Sender: TObject);
begin
  Edit1.Text := DateToStr(MonthCalendar1.Date); 
end;

Gruß

TESTER