在輸入日期型字段時,要出現像DateTimePicker控件那樣進行選擇,怎麼做?

詳細過程 问题点数：47、回复次数：2Top

1 楼meiqingsong（阿飛）回复于 2004-09-01 12:05:15 得分 45

1.   放一个   TMonthCalendar控件  
  设置其visiable属性为   false  
  2.  
  procedure   TForm1.MonthCalendar1Click(Sender:   TObject);  
  begin  
      if(ActiveControl   is   TEdit)   then  
            TEdit(ActiveControl).text   :=   DatetimeToStr(MonthCalendar1.date);  
      MonthCalendar1.Hide;  
  end;  
   
  procedure   TForm1.Edit1MouseDown(Sender:   TObject;   Button:   TMouseButton;  
      Shift:   TShiftState;   X,   Y:   Integer);  
  begin  
      MonthCalendar1.Visible   :=   true;  
      MonthCalendar1.Left   :=   Edit1.Left;  
      MonthCalendar1.Top   :=   Edit1.Top   +   Edit1.Height;  
  end;Top

2 楼BigAngell（学而不思则罔 思而不学则殆）回复于 2004-09-01 17:39:56 得分 2

关注  
   
  -----------------------------------------------------------  
  差几分四季个三角星,给分就行了  
  -----------------------------------------------------------Top

相关问题

• monthcalendar
• edit

• 帖主：dgljf
• meiqingsong
• BigAngell

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载