如何在不修改原始类的情况下将代码插入类？

Question

我创建了一个例程来使 Delphi 可视控件的角变圆。

现在我要做的是确保每个可视对象（如 TMemo、TEdit 和 TPanel）都被舍入，而不必在创建表单时为每个人调用函数。

如何从我的代码（表单单元）为这些类中的每一个扩展 create 方法，以便它们保留类的名称和其他单元上的正常行为？

procedure RoundCornersOf(Control: TWinControl) ;
var
   R: TRect;
   Rgn: HRGN;
begin
   with Control do
   begin
     R := ClientRect;
     rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 20, 20) ;
     Perform(EM_GETRECT, 0, lParam(@r)) ;
     InflateRect(r, - 4, - 4) ;
     Perform(EM_SETRECTNP, 0, lParam(@r)) ;
     SetWindowRgn(Handle, rgn, True) ;
     Invalidate;
   end;
end;

Answer 1

存在在运行时修改类的构造或技巧，例如参见Replacing a component class in delphi 和Changing component class at run-time on demand。但是，据我了解，您必须声明所有出现的控件类型的单独类型。

另一种方法是在创建表单后遍历所有控件，使用Controls 和ControlCount 属性：

  public
    procedure AfterConstruction; override;
  end;

procedure ModifyControls(Window: TWinControl);
var
  I: Integer;
begin
  for I := 0 to Window.ControlCount - 1 do
    if Window.Controls[I] is TWinControl then
    begin
      ModifyControls(TWinControl(Window.Controls[I]));
      RoundCorners(TWinControl(Window.Controls[I]));
    end;
end;

procedure TForm1.AfterConstruction;
begin
  inherited AfterConstruction;
  ModifyControls(Self);
end;

但要小心控制游戏，它发生的次数比你想象的要多。例如，更改 Edit 的 BorderStyle 属性会导致重新创建撤消修改的 Edit。在这些情况下重做修改，前提是您可以全部跟踪。