我自已寫的DBJpeg組件，到現在還未解決，請各位前輩幫忙！！！(200分)

http://www.delphibbs.com/delphibbs/dispq.asp?lid=774034

問題現象是：　
執行　DBJpeg.DataField:='';
　DBJpeg.DataField:='Pictrue';
後就可以正常使用，
否則不能自動刷新，與沒有數據源的現象一樣。

我仔细察看了你的代码，问题应该出在TJPGFieldDataLink上，
你重载了TFieldDataLink的ActiveChanged过程
procedure TJPGFieldDataLink.ActiveChanged ;
begin
inherited; ---你忘了这句，没有的话导致你在DataSet的Active改变后没有UpdateField
---这样的话，导致Field为nil
if FDBJPEG<>nil then FDBJPEG.OnDataChange(self);
end;
建议你再查查你的代码，我发现有很多重载的方法你都没有inherited，看看是否有必要

关注

谢谢0738兄，按照你的方法已解决问题。