TMemo后代有空行

Question

我的TMemo后代有构造函数

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

当我把TMyMemo放在表单上时,我得到错误"控件''没有父窗口." 为什么？

Answer 1

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

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