delphi - 带有空行的 TMemo 后代

我的 TMemo 后代有构造函数

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

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

最佳答案

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

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

关于delphi - 带有空行的 TMemo 后代，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/9850176/