控件继承于Tedit,其中又有Tquery,如何让用户使用TQuery所带的属性(50分)

控件继承于Tedit,其中又有Tquery(代码如下）
TTable_edit=class(TEdit)
private
Fquery;Tquery;
请问：如何让用户使用TQuery所带的属性，如：DatabaseName,会自动把系统的数据库连接名称显示在DatabaseName的下拉筐中，供用户选择，等！

看看DBedit有原码.

为TTable_edit添加一个属性把query的公布出来：


TTable_edit=class(TEdit)
private
Fquery;Tquery;
public
property database：string read getdatabasename；
......
end;

implemention

function TTable_edit.getdatabasename：string；
begin
result;=fquery.databasename；
end;

接受答案了.