|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2004/7/27 14:41:45 |
标题: |
怎么样动态生成一个BUTTON控件 |
浏览:1390 |
|
加入我的收藏 |
楼主: |
我的窗口中有一个BUTTON,设为BUTTON1,当我点击它时,想让窗口再自动生成一个一模一样的BUTTON2,其大小、形状要和BUTTON1一样,请高手告诉我,谢谢!
----------------------------------------------
- |
作者: |
|
2004/7/27 14:58:32 |
2楼: |
bt:=tbutton.Create(self); bt.Parent:=form1; bt.Visible:=true; bt.Caption:='动态按钮'; bt.Left:=576; bt.Top:=184;
----------------------------------------------
-
|
作者: |
|
2004/7/27 15:39:40 |
3楼: |
同意2楼,利用继承。动态生成任何delphi组件。
----------------------------------------------
-
|
作者: |
|
2004/7/27 16:58:50 |
5楼: |
procedure tform1.Create_CmdButt(var t_cmd:TButton; ParObj:tGroupBox;ObjCp:string; ObjL,ObjT,ObjW,ObjH:integer ); begin t_cmd:=tbutton.create(self); WITH t_cmd DO begin parent:=ParObj; default:=true; left:=ObjL; width:=ObjW; top:=ObjT; height:=ObjH; caption:=ObjCp; font.Style:=[fsbold]; END; end;
----------------------------------------------
-
|
作者: |
|
2004/7/27 17:34:30 |
6楼: |
大约是叫类的实例化吧。 要是想一摸一样的话只有循环属性挨个的复制
----------------------------------------------
夫君子之行,静以修身,俭以养德.非澹泊无以明志, 非宁静无以致远.夫学须静也,才须学也,非学无以广才, 非志无以成学,淫漫则不能励精,险躁则不能治性,年与时驰, 意与日去,遂成枯落,多不接世,悲守穷庐,将复何及!
|
作者: |
|
2004/7/28 9:06:29 |
7楼: |
assign
----------------------------------------------
-
|
作者: |
|
2004/7/29 9:46:40 |
9楼: |
sephil ,我试了一下,也是不可以
----------------------------------------------
-
|
作者: |
|
2004/7/29 10:12:42 |
10楼: |
将界面上的button1自己写成一个继承自TButton的子类。然后你想创建多少个相同的按钮都可以了。
----------------------------------------------
-
|
|