问题描述
我是Delphi的新手,我正在构建一个从TStringGrid派生的自定义控件。我需要访问OnResize事件处理程序。我如何获得它? TStringGrid的父级有一个OnResize事件
I am new to Delphi and I'm building a custom control derived from TStringGrid. I need access to the OnResize event handler. How do I get access to it? TStringGrid's parent has a OnResize event
推荐答案
发布 OnResize
事件,该事件在 TControl
中受默认保护。
Publish the OnResize
event, which is protected by default in TControl
.
在自己的子孙中,您不应使用事件本身,而应使用触发事件的方法。这样做将使您的组件用户有机会实现自己的事件处理程序。
In an own descendant, you should not use the event itself, but rather the method that triggers the event. Doing it that way will give the users of your component the opportunity to implement an own event handler.
重写Resize方法:
Override the Resize method:
type
TMyGrid = class(TStringGrid)
protected
procedure Resize; override;
published
property OnResize;
end;
{ TMyGrid }
procedure TMyGrid.Resize;
begin
// Here your code that has to be run before the OnResize event is to be fired
inherited Resize; // < This fires the OnResize event
// Here your code that has to be run after the OnResize event has fired
end;
这篇关于如何在自定义网格控件中响应调整大小事件?的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!