需求:当前有两个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... ) | 举报| 收藏