如何製作自定義組件屬性？

Question

我需要幫助來製作一個控制屬性，當你點擊它時，它會彈出一個自定義對話框，如設置。就像TPicture一樣。

任何想法或建議？

Answer 1

如果你的類被用作其他組件的屬性，要使用Object Inspector來調用你的對話框，那麼你必須實現並註冊自定義屬性編輯器，例如：

interface 

uses 
    DesignIntf, DesignEditors; 

type 
    TMyClassProperty = class(TPropertyEditor) 
    public 
    procedure Edit; override; 
    function GetAttributes: TPropertyAttributes; override; 
    end; 

procedure Register; 

implementation 

uses 
    MyClassUnit; 

procedure TMyClassProperty.Edit; 
begin 
    with TMyDialog.Create(nil) do 
    try 
    ShowModal; 
    finally 
    Free; 
    end; 
end; 

function TMyClassProperty.GetAttributes: TPropertyAttributes; 
begin 
    Result := inherited GetAttributes + [paDialog]; 
end; 

procedure Register; 
begin 
    RegisterPropertyEditor(TypeInfo(TMyClass), nil, '', TMyClassProperty); 
end;