我做了一个OCX控件,并给这个控件增加了一个属性,我想让这个属性跟DELPHI里的FONT属性一样,想在这个属性旁边加一个按钮,请问该怎么做(100分)

我做了一个OCX控件,并给这个控件增加了一个属性,我想让这个属性跟DELPHI里的FONT属性一样,想在这个属性旁边加一个按钮,请问该怎么做

你查一下單元：
C:/Program Files/Borland/Delphi7/Source/Vcl/Forms.pas
第704行就有具體聲明等。

我看了的,哪里有呢

unit UnitAbout;

{$I Asta.inc}

interface

uses classes,
{$ifdef Delphi6AndUp}
DesignEditors, DesignIntf
{$else}
DsgnIntf
{$endif};

Type

TfcAboutPropertyEditor = class(TPropertyEditor)
public
procedure Edit; override;
function GetAttributes: TPropertyAttributes; override;
function GetValue:string; override;
end;

implementation

uses UnitAboutBox;

procedure TfcAboutPropertyEditor.Edit;
begin
AboutBox:=TAboutBox.Create(nil);
AboutBox.ShowModal;
AboutBox.Free;
end;

function TfcAboutPropertyEditor.GetAttributes: TPropertyAttributes;
begin
GetAttributes := [paDialog, paReadOnly];
end;

function TfcAboutPropertyEditor.GetValue: String;
begin
GetValue := 'Version 1.0';
end;


end.