在Delphi pascal中使用自己的方法扩展库类

Question

我想知道是否有办法在 Delphi Pascal 中为已存在/包含的类组件添加自定义方法。

我想用它来旋转 StringGrid ，如下所示：

StringGridn.rotate(angle);

而不是：

rotate(StringGridn, angle);

感谢您的建议：）

Answer 1

您可以使用下面示例中的帮助程序，请参阅Class and Record Helpers (Delphi)。

type  
  TStringGridHelper = class helper for TStringGrid
    procedure Rotate(Angle: Single);
  end;

procedure TStringGridHelper.Rotate(Angle: Single);
begin
  { your implementation }
  Rotate(Self, Angle);  
end;

然后只需致电

StringGridn.Rotate(Angle);