delphi - 如何响应自定义网格控件中的调整大小事件？

Question

我是 Delphi 新手，我正在构建一个派生自 TStringGrid 的自定义控件。我需要访问 OnResize 事件处理程序。我如何访问它？ TStringGrid 的父级有一个 OnResize 事件

Answer 1

发布 OnResize 事件，该事件在 TControl 中默认受到保护。

<小时/>

在自己的后代中，您不应使用事件本身，而应使用触发事件的方法。这样做将使组件的用户有机会实现自己的事件处理程序。

重写调整大小方法:

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;