带有空行的 TMemo 后代

Question

我的 TMemo 后代有构造函数

constructor TMyMemo.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Lines.Clear;
end;

当我将 TMyMemo 放在表单上时，我收到错误“Control '' has no parent window.”。为什么？

Answer 1

新创建的备忘录没有内容。但是，一旦组件获得名称，就会添加内容，这是由设计者自动完成的。为了防止这种情况，请从ControlStyle 中删除csSetCaption：

constructor TMyMemo.Create(AOwner: TComponent); 
begin 
  inherited Create(AOwner); 
  ControlStyle := ControlStyle - [csSetCaption];
end; 

Answer 2

移动 Lines.Clear 以覆盖 CreateWnd 方法。创建执行期间不存在底层窗口控件（多行编辑）