关于日历的操作？急求得？希望高手指教？不够再加分！！！！！

Question

1.日历控件的日期双击选定如何加入列表框（日历和列表框在一个窗体内）
2.如何实现对应的日期和星期的判断：比如：2002年2与8日是星期几？
3.日历的年和月的变化如何实现？

Answer 1

1.好像双击不行 当击可以 listbox.items.add(datetostr(....));
2.在del6 和del7 中用weekofday().
3.year(),month().

Answer 2

procedure TForm1.DateTimePicker1CloseUp(Sender: TObject);
begin
  if ListBox1.Items.IndexOf(datetostr(datetimepicker1.Date))<0 then
  ListBox1.Items.Add(datetostr(datetimepicker1.Date));
end;procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
  case DayOfWeek(DateTimepicker1.Date) of
    1: edit1.Text:='日';
    2: edit1.Text:='一';
    3: edit1.Text:='二';
    4: edit1.Text:='三';
    5: edit1.Text:='四';
    6: edit1.Text:='五';
    7: edit1.Text:='六';
  end
end;年和月在datetimepicker中可以直接改的啊

Answer 3

1.listbox.items.add(datettimeformate(yyyy-mm-dd,datetimepicker.date));
2.在del6 和del7 中用weekofday().
3.year(),month().

Answer 4

hao,小新讲的对，支持一下！
up！