| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/4/27 14:19:25 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 是这样的，有一个edit和一个button，我想在edit里面输入一个数字，然后按BUTTON则窗体上就会出现相应数目的bitbtn,并且bitbtn都带有各自不同的图标，该怎样处理？ ---------------------------------------------- 我是菜鸟，望大家多指教 |
|||||
| 作者： |
|
2004/4/27 14:30:20 | ||||
| 1楼： | 用一个循环动态创建bitbtn,具体的翻一翻书吧 ---------------------------------------------- 人人为我！！！！ 我为人人！！！！ |
|||||
| 作者： |
|
2004/4/27 14:36:04 | ||||
| 2楼： | 按 1楼说的做 ----------------------------------------------  
|
|||||
| 作者： |
|
2004/4/27 15:06:02 | ||||
| 3楼： | procedure CreateButtons(); var btnList:array of TBitbtn; //动态数组用于存放所要生成的按钮 imgList:array of TBitMap; //动态数组用于存放按钮的图片 i,iCount:integer; begin iCount := strtoint(edit1.text);//从EDIT1取得要生成的个数 setlength(btnList,SizeOf(TBitBtn)*iCount);//初始化动态数组的长度 setlength(imgList,SizeOf(TBitMap)*iCount);//初始化动态数组的长度 for i:=1 to iCount do //动态生成图片变量，并装入图片（假设图片名:pic1. begin //bmp,pic2.bmp.....pic100.bmp） imgList[i] := TBitmap.Create; imgList[i].LoadFromFile('pic'+inttostr(i)+'.bmp'); end; for i:=1 to iCount do //动态生成，并装入图片。 begin btnList[i] := TBitBtn.Create(self); btnList[i].Parent := self; btnList[i].Top := 100; btnList[i].Left := 100 * i; btnList[i].Width := 90; btnList[i].Height := 50; btnList[i].Caption := 'Button '+inttostr(i); btnList[i].Glyph := imgList[i]; end; end; 在我的机上试验通过。(Delphi7.0+W2kAdv) ---------------------------------------------- - |
|||||
| 作者： |
|
2004/4/27 17:57:27 | ||||
| 4楼： | 很好！ ----------------------------------------------
|
|||||
| 作者： |
|
2004/4/27 19:13:31 | ||||
| 5楼： | 如果使用 ToolBar 会更简单 ---------------------------------------------- 米软科技有限公司  http://www.szmesoft.com
|
|||||
| 作者： |
|
2004/4/28 8:45:54 | ||||
| 6楼： | fox8860478 这样的话，那就有十个BUTTON排在同一行了 ---------------------------------------------- 我是菜鸟，望大家多指教 |
|||||
| 作者： |
|
2004/4/28 8:59:48 | ||||
| 7楼： | for i:=1 to iCount do //动态生成，并装入图片。 begin btnList[i] := TBitBtn.Create(self); btnList[i].Parent := self; btnList[i].Top := 100; btnList[i].Left := 100 * i; btnList[i].Width := 90; btnList[i].Height := 50; btnList[i].Caption := 'Button '+inttostr(i); btnList[i].Glyph := imgList[i]; end; 你把这动态创建的位置带个变参数不就解决. ---------------------------------------------- 中流一壶，千金争挈。宁为铅刀，毋为楮叶。错节盘根，利器斯别。识时务者，呼为俊杰！ |
|||||
| 信息 |
| 登陆以后才能回复 |
