delphi6 问题3

类别:Delphi 点击:0 评论:0 推荐:

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

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

//转贴请保留此信息

本文地址:http://com.8s8s.com/it/it5753.htm