delphi6 问题3

一个很怪的现象，试试下面代码

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

//转贴请保留此信息