日期控件

[zuozl]

请问下，delphi里面是如果将日期显示在日期控件里的，也就是说我移动记录，日期控件值随着变化。。。在dataset里的afterscroll事件更改日期控件的值不行啊

[sysu]

procedure TForm1.ADODataSet1AfterScroll(DataSet: TDataSet);
begin
DateTimePicker1.Date := DataSet.FieldValues['DateField'];
end;

[yelei923]

up

[zuozl]

这样不行，因为一打开表单就触发了afterscroll事件,访问DateTimePicker1时，DateTimePicker1还未建立，系统就出现异常，

[sysu]

那就判断一下：
if Assigned(DateTimePicker1) then
DateTimePicker1.Date := DataSet.FieldValues['DateField'];

[zuozl]

还是不行啊，，我的记录源都在一个窗体里面，代码是:
try
if Assigned(Form5.DateTimePicker1) then
Form5.DateTimePicker1.Date := DataSet.FieldValues['DateField'];
except
showmessage('test');
end;

if Assigned(DateTimePicker1) then 这一行提示出错，提示大概是：access voliation address....in module....

[zuozl]

还是不行啊，，我的记录源都在一个DataModule里面，代码是:

[zuozl]

怪事情啊，我把这个表单在项目的options里改成自动建立，就可以了，手工create的form就不行，搞不懂哦，，，

[sysu]

你在form的create事件中打开dataset，不要在设计时就把dataset打开。

[zuozl]

谢谢，解决了。。。