小编dou*_*leu的帖子

我想创建一个自定义控件(TRichEdit的后代).我只想在editfield上面添加一些文字.

我已经创建了自己的控件,并覆盖了构造函数,为标题创建了一个TLabel.它有效,但我的问题是:如何将标签移到richedit上面？当我设置Top:= -5时,标签开始变得令人失望.

这是构造函数的代码:

constructor TDBRichEditExt.Create(AOwner: TComponent);
begin
  inherited;
  lblCaption := TLabel.Create(self);
  lblCaption.Parent := parent;
  lblCaption.Caption := 'Header';
  lblCaption.Top := -5;
end;

我认为标签令人失望,因为richedit是父母.我试过了

lblCaption.Parent := self.parent;

为了使拥有richedit的表格成为父母 - 但这不起作用......

我怎么能实现这个目标？谢谢你们!

我有一个自动化对象的应用程序.在delphi IDE中,我可以通过"寄存器类型库"按钮注册它.作为替代方案,我可以使用codegear的tregsvr.

但是,当应用程序安装在其他计算机上时,我该如何注册？该设置是否应包含tregsvr.exe？我可以提供tregsvr.exe吗？谢谢你的建议!