向RichEdit中动态插入CheckBox出现的问题

[秋天之落叶]

向memo插入CheckBox一切正常，但由于memo不能调整行间距，想使用RichEdit，但却显示异常，如何处理？
for i := m + 1 to ustringlist.count - 1 do
begin
n := n + 1;
if Length(ustringlist[i]) > 0 then
begin
cb[i] := TCheckBox.Create(nil);
cb[i].Parent := uxuanxiangmemo;
cb[i].Left := 20;
cb[i].Top := (uwentmemo.Lines.count - 1) * uwentmemo.Font.Size + uwentmemo.Font.Size * 3 + 60 * (n - 1);
cb[i].Width := uwentmemo.Width - 50;
cb[i].Height := 80;
cb[i].Caption := ' ' + ustringlist[i];
cb[i].WordWrap := True;
cb[i].Font.Name := uwentmemo.Font.Name;
cb[i].Font.Size := uwentmemo.Font.Size - 1;
cb[i].Color := clWindow;
cb[i].Font.Color := clWindowText;
end;
end;

[秋天之落叶]

动态插入异常，静态放置却没有问题。

[秋天之落叶]

还有的会显示成这样：

[秋天之落叶]

我用静态的数据模拟一个动态的控件，依旧显示异常：
cb[1] := TCheckBox.Create(nil);
cb[1].Parent := uxuanxiangmemo;
with cb[1] do
begin
Left := 50;
Top := 200;
Width := 500;
Height := 17;
Caption := 'hdksahdjkadjkahdjksa大家看撒谎代金卡回到家卡号';
Color := clWindow;
Font.Charset := DEFAULT_CHARSET;
Font.Color := clWindow;
Font.Height := -14;
Font.Name := 'Tahoma';
Font.Style := [];
ParentColor := False;
ParentFont := False;
TabOrder := 6;
Visible := True;
end;

[BlueStorm]

TRichEdit和TMemo都不是容器，不能作为parent，TCheckBox的parent应该是TForm、TPanel之类的东西。

[秋天之落叶]

是的，我找到一段英文回答说CB不能在RE中实现。 我试了sheet是可以的，利用richedit的top和left进行定位，已经解决。 论坛何时修改一下三贴的规定！

[秋天之落叶]

为什么把memo作为父容器是可以的？