Q&A

  • 폼연결하여 달력의 날짜를 삽입하고 싶습니다.
안녕하세요
왕왕초보입니다.

Form3에 달력 폼을 만들고,
Form1의 버튼을 누르면
Form3의 달력이 나타나고,

거기에서 날짜를 지정한 후 확인 버튼을 누르면
날짜가 Form1의 에디트창으로 가게하려고 합니다.

그런데 아무리 해봐도 안되는군요(ㅠ.ㅠ)
해서 고수님들엑 도움을 청합니다.

어떻하면 될까여...
2  COMMENTS
  • Profile
    정경철 2003.06.19 19:16
    프그램 실행시 Form3를 자동 생성으로 하지 않았다고
    가정 했을때 다음과 같이 한번 해 보십시오...

    //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;

    를 하십시오...

    좋은 하루 되십시오.


  • Profile
    문태용 2003.06.19 19:07
    델파이에서 지원하는 DateTimePicker라는 놈이 있습니다.
    요거를 사용하시구 요거에 OnCloseUp 이벤트에서 에디트박스에 현재 선택되어진 날짜를 옮겨주면 되는데요...
    그렇게 구현하심 굳이 다른 폼을 띄우지 않구 간단히 날짜를 처리할 수 있거든요..
    혹시나 해서 아래에 간단한 예를 같이 올려드리죠..

    procedure TForm1.DateTimePicker1CloseUp(Sender: TObject);
    begin
       Edit1.Text := DateToStr(DateTimePicker1.Date);
    end;

    굳이 다른 폼을 사용하셔야 한다면 쪼금 복잡할 수도 있습니다.
    해당월을 폼에 따루 만들어서 뿌려줘야 하니까요..

    그럼 즐프 하시고...