AlphaControls 控件 TsDateEdit(TDateTimePicker)日期控件初始化Date数据
在From中,需要在OnShow事件中,对日期控件例如:TDateTimePicker,TsDateEdit的Date值初化。
由于控件拥有OnChang事件,同时在OnChang事件,针对数据库的修改。出错信息:
“ClientDataSet:Cannot perform this opertion on a closed dataset.”。
对此,处理方式三步走:
1、关闭OnChange事件,无实体(procedure);
2、向控件赋值;
3、让OnChange事件,关联实体(procedure)。
在OnShow事件中代码:
sDateEdit1.OnChange:=nil;
sDateEdit1.Date:=Now+365; // 有效期延长一年
sDateEdit1.OnChange:=sDateEdit1Change;