delphi - 具有空行的 TMemo 后代

Question

我的 TMemo 后代有构造函数

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

当我将 TMyMemo 放在表单上时，出现错误“Control ''没有父窗口。”。为什么？

Answer 1

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

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