come personalizzare la proprietà del componente?

Question

Ho bisogno di aiuto per creare una proprietà di controllo che quando si fa clic su di esso, si apre una finestra di dialogo personalizzata come le impostazioni. proprio come la TPicture.

qualsiasi Idea o suggerimento?

Answer 1

Se la classe viene utilizzata come una proprietà di altri componenti e si desidera utilizzare l'Object Inspector per richiamare la vostra finestra, poi si deve implementare e registrare un costume Editor di proprietà, ad esempio:

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;