type
QryStrGrid = class(TstringGrid)
mainquery : Tquery;
...
public:
constructor create(aowner:Tcompanent);override;
...//方法
end;
再类的构造函数里面,创建自己和mainquery,定义好query
并把query的一些属性绑定到你创建的类里面
然后定义一些方法让query取道数据后自动将本身(stringgrid)的显示清空,然后填满新数据
整个实现可能很繁琐,建议你参考Delphi自己的一些源码,和Vcl控件编写方法