delphi – 自定义组件如何处理其子项的事件?
发布时间:2020-12-15 09:34:34 所属栏目:大数据 来源:网络整理
导读:我正在设计一个面板后代组件,它上面有一个按钮控件: THidePanel = class(TPanel)private TActivateButton: TButton;public constructor Create(aOwner: TComponent); override; procedure WMSize(var Msg: TWMSize); message WM_SIZE; procedure HideCompon
我正在设计一个面板后代组件,它上面有一个按钮控件:
THidePanel = class(TPanel) private TActivateButton: TButton; public constructor Create(aOwner: TComponent); override; procedure WMSize(var Msg: TWMSize); message WM_SIZE; procedure HideComponents; end; 该组件如何处理其TActivateButton控件的OnClick事件? 解决方法
由于按钮是组件的私有按钮,您只需将事件处理程序附加到它,即
THidePanel = class(TPanel) ... private procedure H_ActivateButtonClick(Sender: TObject); ... end; constructor THidePanel.Create(aOwner: TComponent); begin inherited; ... FActivateButton := TButton.Create(Self); FActivateButton.Parent := Self; FActivateButton.OnClick:= H_ActivateButtonClick; end procedure THidePanel.H_ActivateButtonClick(Sender: TObject) begin // button is clicked! end 如果您还需要向组件的最终用户提供事件,则需要添加TNotifyEvent属性并从内部处理程序调用它,即 THidePanel = class(TPanel) private FOnActivateBtnClick: TNotifyEvent; ... published property OnActivateButtonClick: TNotifyEvent read FOnActivateBtnClick write FOnActivateBtnClick; end; procedure THidePanel.H_ActivateButtonClick(Sender: TObject) begin // button is clicked! ... // fire the end user event if(Assigned(FOnActivateBtnClick))then FOnActivateBtnClick(Self); end (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |