带下拉列表的属性应如何定义?..(50分)

在设计D7控件时，如何设定如 ClientDataSet 的ProviderName 哪样的属性？
（它是可供下拉选取又可以输入的属性，同时是依RemoteServer属性读入下拉框中的结果）

找一个类似属性看看^_^

unit TEST;

interface

uses
SysUtils, Classes;

type TTesttype = (clTest1,clTest2,clTest3);

type
TTEST = class(TComponent)
private
FTesttype : TTesttype;
procedure SetTesttype(Value : TTesttype);
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
property Testtype :TTesttype read FTesttype write SetTesttype;
{ Published declarations }
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Samples', [TTEST]);
end;

{ TTEST }

procedure TTEST.SetTesttype(Value: TTesttype);
begin
//Add you code
end;

end.