Q&A

  • 버튼을 눌렀을때 달력컴포넌트에서 선택해서 입력하기
안녕하세요
왕초보입니다.

생일 등 날짜를 넣으려고 Form에다 DBLookupComBox를 놓았습니다.
그리고 그 옆에 SpeedButton를 놓았구요

이 상태에서 SpeedButton를 눌렀을 때 달력컴포넌트가 나타나고 여기에서 날짜를 선택하여 [삽입]을 누르면 DBLookupComBox에 날짜가 들어가게 하려고 합니다.

그런데 그것이 잘 안되서 이렇게 부탁을 도움을 요청합니다.

감사합니다.
그리고 오늘도 좋은 하루가 되시기를....
이 게시물을
1  COMMENTS
  • Profile
    박성훈 • 2002.06.14 21:19

    안녕하세요.
    아래는 간단한 예제입니다. 참고 하시기 바랍니다.

    function ShowCalendar(var ADate: string): Boolean;
    begin
        FrmCalendar:= TFrmCalendar.Create(Application);
        try
            Result:= FrmCalendar.ShowModal=mrOk;
            if Result then
                ADate:= DateToStr(FrmCalendar.Calendar1.CalendarDate);
         finally
             FrmCalendar.Free;
             FrmCalendar:=nil;
         end;
    end;


    procedure TForm1.SpeedButton1Click(Sender: TObject);
    var
       s: string;
    begin
       if ShowCalendar(s) then
            Table1.FieldByName('날짜').AsString:= s;
    end;



    도움이 되시길..
←First Page
987 988 989 990 991 992 993 994 995 996
Last Page→
한델 로그인 하기