在运行时动态创建按钮元素
本文档由 金海龙(AI编程集团) 分享于2010-05-29 15:59
在单击button1的时候,自动在Form1的随机位置创建一个新按钮:procedure TForm1.Button1Click(Sender: TObject);var a,b:tbutton;beginrandomize;inc(i);with tbutton.Create(self) dobegincaption:=´button´+inttostr(i);parent:=form2;left:=random(499);top:=random(399);end;end;在单击button4的时候,自动在Form2的随机位置创建一个新按钮:
下载文档
收藏
打印
君,已阅读到文档的结尾了呢~~