Delphi VCL "TcxButtonEdit"의 "Buttons"컬렉션에서 항목 확장하기

Question

"TcxEditButtons"유형의 "Buttons"컬렉션을 확장하려고합니다. 목적은 레거시 TcxButtonEdit 구성 요소의 모든 단추에 "OnClick"이벤트와 "Shortcut"속성을 추가하는 것입니다.

type 
     TMycxDBButtonEdit = class(TcxCustomButtonEdit) 
    FProperties: TMycxDBButtonEditProperties; 
    published 
    property Properties: TMycxDBButtonEditProperties read FProperties write SetProperties; 

문제는 다소 분명하다 ... 내 구성 요소의

type 
    TMycxDBButtonEditProperties = class(TcxCustomButtonEditProperties) 
    private 
    FButtons: TMycxEditButtons; 
    procedure SetButtons(const Value: TMycxEditButtons); 
    function GetButtons: TMycxEditButtons; 
    public 
     constructor Create(AOwner: TPersistent); override; 
     procedure AfterConstruction; override; 
    published 
     property Buttons: TMycxEditButtons read GetButtons write SetButtons; 
    end; 

... 내가이 수행하십시오 : 나는 아래의 코드를 사용하여 "속성"속성을 덮어 쓰기 시작 컬렉션을 편집이 가능하지만 실제 조상 속성 인 "버튼"은 반영되지 않습니다. 질문 : 컬렉션이 구성 요소의 버튼에 영향을 미치게하려면 어떻게해야합니까?

내가 이해하고 데브 익스프레스의 지원 아래 링크에 설명 된 내용을 적용하려고했으나 성공하지 (무능력)

https://www.devexpress.com/Support/Center/Question/Details/Q136143/creating-custom-tcxbuttonedit

https://www.devexpress.com/Support/Center/Question/Details/Q35461/do-you-have-information-on-creating-own-tcxcustomedit-descendant

https://www.devexpress.com/Support/Center/Question/Details/A483/how-to-hide-default-button-s-in-a-dropdown-editor-or-add-extra-buttons

Answer 1

기반 @nil 코멘트에, 나는 예상 된 결과를 얻었다. 다음은 동일한 유형의 필요를 가진 사람들을위한 코드 스 니펫입니다.

type 
     TZcxEditButton = class (TcxEditButton) 
    ... 
    published 
    property Shortcut: TShortCut read FShortcut write SetShortcut; 
    property OnClick: TNotifyEvent read FOnClick write SetOnClick; 
    end; 

    type 
     TZcxEditButtons = class(TcxEditButtons) 
    public  
    class function GetButtonClass: TcxEditButtonClass; override; 
    end; 

    type 
     TZcxButtonEditProperties = class(TcxButtonEditProperties) 
     public 
     class function GetButtonsClass: TcxEditButtonsClass; override; 
    end; 

    type 
     TZcxButtonEdit = class(TcxButtonEdit) 
     public 
     class function GetPropertiesClass: TcxCustomEditPropertiesClass; override; 
     end; 

implementation 

    class function TZcxEditButtons.GetButtonClass: TcxEditButtonClass; 
    begin 
     Result := TZcxEditButton; 
    end; 

    class function TZcxButtonEditProperties.GetButtonsClass: TcxEditButtonsClass; 
    begin 
     Result := TZcxEditButtons; 
    end; 

class function TZcxButtonEdit.GetPropertiesClass: TcxCustomEditPropertiesClass; 
begin 
    Result := TZcxButtonEditProperties; 
end; 

참고 : 나는 개선을위한 제안을 받아 들일

이

Answer 2

당신은 메인 클래스 TcxEditButton에서 새 클래스를 확장해야합니다. 속성 클래스 TcxCustomButtonEditProperties을 확장하는 것은 좋지 않습니다. TcxEditButton에서 확장 한 새 클래스를 만들고 새 Methods 및 property을 추가하십시오.