一个很怪的现象,试试下面代码
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
//转贴请保留此信息
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18