一个很怪的现象，试试下面代码
1.在form上放一个TRichEdit
2.放一个TLabel
3.放一个TButton
4.在Button1的onlick事件里写下面的代码并执行
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Parent := RichEdit1;
Label1.Top := 20;
Label1.Left := 20;
RichEdit1.Repaint;
end;
//rock
//转贴请保留此信息
