如何知道用戶何時單擊TButtonedEdit.OnRightButton？

Question

我正在構建（在Delphi XE7中）基於TGroupBox的自定義控件。 它包含其他控件TButtonedEdit。

constructor TMyControl.Create(aOwner: TComponent); 
VAR myIcon: TIcon; 
begin 
inherited Create(aOwner); 
... 
edtPath:= TButtonedEdit.Create(Self); 
WITH edtPath DO 
    begin 
    Parent    := Self; 
    RightButton.Glyph.OnClick:= MyOwnHandler;  <- Here error: "Cannot access protected symbol TEditButton.Glyph" 
    RightButton.OnRightButtonClick:= MyOwnHandler; <- Here error: "Undeclared identifier: 'OnRightButtonClick'" 
    end; 
end; 

如何知道用戶何時按下RightButton？

GetOnRightButtonClick和SetOnRightButtonClick是私人的。 RightButton.Glyph.OnClick也一樣。

Answer 1

沒有理由訪問RightButton或超出控制本身的任何東西。只需將您的事件處理程序直接分配給TButtonedEdit.OnRightButtonClick即可。您在控件屬性中找到的任何事件僅用於控件本身在內部使用。這些事件不會發布，因此您不應該嘗試使用它們。

WITH edtPath DO 
begin 
    Parent    := Self; 
    OnRightButtonClick:= MyOwnHandler; 
end;