델파이에서 지원하는 DateTimePicker라는 놈이 있습니다.
요거를 사용하시구 요거에 OnCloseUp 이벤트에서 에디트박스에 현재 선택되어진 날짜를 옮겨주면 되는데요...
그렇게 구현하심 굳이 다른 폼을 띄우지 않구 간단히 날짜를 처리할 수 있거든요..
혹시나 해서 아래에 간단한 예를 같이 올려드리죠..
procedure TForm1.DateTimePicker1CloseUp(Sender: TObject);
begin
Edit1.Text := DateToStr(DateTimePicker1.Date);
end;
굳이 다른 폼을 사용하셔야 한다면 쪼금 복잡할 수도 있습니다.
해당월을 폼에 따루 만들어서 뿌려줘야 하니까요..
가정 했을때 다음과 같이 한번 해 보십시오...
//Form1에서 버튼를 눌렀을때.
Form3 := TForm3.Create(Self);
Form3.MonthCalendar1.Date := Date; //MonthCalendar1 델파이 컴포넌트
Form3.Show;
//Form3에서 버튼를 눌렀을때.
Form1.Edit1.Text := DateToStr(MonthCalendar1.Date);
Form3.Close;
참조.
Form1에서 Form3를 생성 하고자 할때는
Form3를 닫을때 메모리에서 지우십시오.
지울때는 Close 이벤트에
Action := caFree;
를 하십시오...
좋은 하루 되십시오.