原创  调整DateTimePicker组件年份为某年后 收藏

需求:当前有两个DateTimePicker,当用户调整了第一个DateTimePicker后,第二个DateTimePicker自动变为几年后的该天

比如第一个显示为2001-1-4,则第二个显示为2005-1-4


调整方法:
 procedure TfrmDialogAddSupply.DateTimePicker1Change(Sender: TObject);
 begin
    DateTimePicker2.DateTime := DateTimePicker1.DateTime;
    DateTimePicker2.DateTime :=  IncYear(DateTimePicker2.DateTime, 4);
 end; 

发表于 @ 2006年09月05日 18:35:00 | 评论( loading... ) | 编辑| 举报| 收藏

旧一篇:调整QuickReport控件界面和提示信息为中文 | 新一篇:GIS应用:有了深度和广度之后的新需求(ZZ)

  • 发表评论
  • 评论内容:
  •  
Copyright © freeknightlcw
Powered by CSDN Blog