关于控件的属性(100分)

我现在急需做控件，但是不知道怎样写属性，使它在对象编辑器单击时出现下拉列表或则弹出一个对话框，谢谢。

如果属性是一个集合类型，在对象编辑器单击时出现下拉列表
要出现对话框的话你必须override TPropertyEditor的edit方法。

type TAbout=class(TPropertyEditor)
public
procedure Edit;override;
function getattributes:TPropertyAttributes;override;
function getvalue:string;override;
end;
....
published
property About:TAbout read FAbout;
end;

....

procedure TAbout.Edit;
begin
inherited;
ShowAboutWindow('Hello'); //出现对话框
end;

function TAbout.getattributes: TPropertyAttributes;
begin
Result := [paDialog, paReadOnly];
end;

function TAbout.getvalue: string;
begin
result:='About TStatusBarEx V1.0';
end;

在http://www.wapsec.com.cn/delphi/delphibbs/里我已经为你回答了。

你可以买本￥80以上的书，里面一定有！！！
总是要靠自己的！！！

如果是已经注册了属性编辑器的属性类型，则自动会生成对应的属性编辑器。如：TFont 类型的属性。
/Borland/Delphi5/Demos/Propedit 下有一个这样的例子。

多人接受答案了。