Q&A

  • 달력 컴포넌트에서...
달력 컴포넌트에서 날짜를 클릭하면  레이블에 날짜가 입력 되는데요

토요일과 일요일이 입력되면 에러 메세지 나게 하는건 어떻게 하는 건가요?

제가 초보라서.....

꼭 좀 갈쳐 주세요
1  COMMENTS
  • Profile
    홍성락 2002.11.07 14:13
    DateTimePicker일경우와 MonthCalendar1일경우입니다.
    procedure TForm1.DateTimePicker1Change(Sender: TObject);
    begin
        if (FormatDateTime('ddd', DateTimePicker1.Date)='토')
    or(FormatDateTime('ddd', DateTimePicker1.Date)='일')then exit;
        Label1.Caption := FormatDateTime('yyyy"년"mm"월"dd"일"dddd ', DateTimePicker1.Date);
    end;

    procedure TForm1.MonthCalendar1Click(Sender: TObject);
    begin
        if (FormatDateTime('ddd', MonthCalendar1.Date)='토')
    or(FormatDateTime('ddd', MonthCalendar1.Date)='일' then exit;
        Label1.Caption := FormatDateTime('yyyy"년"mm"월"dd"일"dddd ', MonthCalendar1.Date);
    end;
    hsr//////////////////////////////////////////////////////////