自定义控件DataSource属性的问题

[susdj]

我的自定义控件有一个DataSource属性
在SetDataSource中把DataSource的数据集取出显示在列表.
在设计阶段把DataSource1给予DataSource属性时数据会正常显示,但是运行时却不显示.
单步调试发现DataSource1给予DataSource属性时DataSource1的数据集还没有打开,
而TDBGrid是在DataSource1的数据集打开后再把DataSource1给予属性DataSource.
如何做才能使DataSource1的数据集打开后再设置DataSource属性?

[susdj]

不明白楼上的意思.
而且assign会耗费内存吧

[gflpower]

直接指向也可以

[susdj]

我是直接指向的,问题是DataSource1的DataSet还没有打开就附值给DataSource属性了

[gflpower]

设置 Write 属性是

时间过程来做

procedure SetDataset(var ds:Tdataset )
begin
Fdataset.assign(ds);
end;

[susdj]

老大难问题，高手帮帮忙！
TMyControl = class(TListBox)
private
FDataSource :TDataSource;
...
property
DataSource :TDataSource read GetDataSource write SetDataSource;
end
设计阶段为DataSource赋值控件立刻显示记录内容，运行程序，控件不会显示记录，必须在程序中加
MyControl1.DataSource := DataSource1；才能显示内容。
为什么Delphi中的TDBGrid,TDBListBox在程序运行时可以显示出和设计时一样的数据？

[susdj]

牛人不在了...
搞软件的人越来越少了