김재만 wrote:

> 안녕하세요. 이호림이라고 합니다.

> Win32에보면 달력 컴포넌트가 있는데 사용자가 날짜를 클릭할때 어떠한 이벤트를 줄려고 합니다. 어떻게 알수 있어요?

>

> 답변 꼭좀 부탁드립니다.

///////////////////////////////////////////////////////////////////////////

Message를 사용하느것도 있겠으나(?)

간단하게 전역변수사용으로 해보세요.

전역변수 OldDate : TDateTime;선언,

procedure TForm1.MonthCalendar1Click(Sender: TObject);

var

Year, Month, Day: Word;

begin

if OldDate <> MonthCalendar1.Date then begin

OldDate := MonthCalendar1.Date;

DecodeDate(MonthCalendar1.Date, Year, Month, Day);

Edit1.text := intToStr(Year) + '-' + intToStr(Month) + '-' + intToStr(Day);

end;

end;



procedure TForm1.FormShow(Sender: TObject);

begin

OldDate := MonthCalendar1.Date;

end;