在delphi中替换组件类

Question

我知道我已经看到了一个黑客的例子来定义现有VCL组件的自定义版本,比如TButton或TEdit,具有相同的类名并做一些事情来使DFM流转化器实例化你的版本而不是原本的.不幸的是,我处于一种我需要能够做到这一点的情况,我找不到写作.有谁知道在哪里可以找到有关如何实现这一目标的信息？

Answer 1

在您的表单中,您可以覆盖ReadState方法,如下所示:

type
  TMyForm = class(TForm)
  protected
    procedure ReadState(Reader: TReader); override;
  end;

procedure TMyForm.ReadState(Reader: TReader);
begin
  Reader.OnFindComponentClass := FindComponentClass;
  inherited;
end;

procedure TMyForm.FindComponentClass(Reader: TReader; const ClassName: string;
  var ComponentClass: TComponentClass);
begin
  if ComponentClass=TButton then begin
    ComponentClass := TMySuperDuperButton;
  end else if ComponentClass=TEdit then begin
    ComponentClass := TMyTotallyAwesomeEdit;
  end;
end;

可能有很多其他方法可以做到这一点,但这就是我这样做的方式!

编辑:检查TReader.GetFieldClass(Instance: TObject; const ClassName: string)表明梅森回忆的黑客行为.第一行设置ClassType := Instance.ClassType.因此我怀疑通过将pas文件中的声明更改Button1: TButton为Button1: MyUnit.TButton将导致您的按钮被创建.或者也许黑客是在最后添加MyUnit到uses子句,以便你的TButton版本是范围内的那个.但是,这听起来都不是很实用.

Answer 2

我想你要记住的是一个"插入者类":继承一个与祖先同名的类,通过在祖先的单位名称前加上前缀.由于类名未更改,因此dfm流机制不会受到干扰.只会影响该类重新声明的单位,除非它被放在一个单独的单元中,并且该单元被包含在基类之后的使用部分中.显然,您不能在插入的类中发布属性.

type
  TButton = class(stdctrls.TButton)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    [...]
  private