| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/2/27 16:33:15 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 谢谢。。。着急啊。。。 ---------------------------------------------- zhaohuijun |
|||||
| 作者： |
|
2004/2/27 16:34:58 | ||||
| 1楼： | 码画出????这么厉害 不知道你是怎么弄的 onclick 就可以啦 ----------------------------------------------  
|
|||||
| 作者： |
|
2004/2/27 16:47:14 | ||||
| 2楼： | ，哦，好像不是画出来的。。呵呵 我也只不到方法对不对，下面是代码 public i,j:integer; MyCk:array of TCheckBox; { Public declarations } end; 下面用的时候 MyCk[0]:=TCheckBox.Create(GroupBox1); MyCk[0].Parent:=GroupBox1; 。。。。 就这样创建好了，，， 是不是太小儿科了？ 。。 ---------------------------------------------- zhaohuijun |
|||||
| 作者： |
|
2004/2/27 16:57:16 | ||||
| 3楼： | procedure tform1.myck1 (sender:tobject); begin showmessage((sender as tCheckBox).caption); end; //-------------------------- for i:=0 to 9 do begin setlength(MyCk,i+1); MyCk[i]:=TCheckBox.Create(GroupBox1); MyCk[i].Parent:=GroupBox1; myck[i].caption:=inttostr(i); myck[i].onclick:=myck1; end; ----------------------------------------------
|
|||||
| 作者： |
|
2004/2/27 17:06:41 | ||||
| 4楼： | -
|
|||||
| 作者： |
|
2004/2/28 9:51:07 | ||||
| 5楼： | 谢谢bios兄弟，，你太厉害了。。。佩服。。 ---------------------------------------------- zhaohuijun |
|||||
| 信息 |
| 登陆以后才能回复 |
