| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/1/3 10:39:32 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 单击Button ， Tpagecontrol创建一个新的页面，怎样实现？ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/1/3 13:11:20 | ||||
| 1楼： | var T : TTabSheet; P : TPageControl; begin P := TPageControl.Create(application); with P do begin Parent := Form1; Top := 30; Left := 30; Width := 200; Height := 150; end; T := TTabSheet.Create(P); with T do begin Visible := True; Caption := 'Page 1'; PageControl := P; end; end; 就这样试试吧! ---------------------------------------------- - |
|||||
| 作者： |
|
2004/1/3 13:22:32 | ||||
| 2楼： | 我刚开始学BCB的时候也曾经在CSDN问过,呵呵 ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/1/3 13:31:50 | ||||
| 3楼： | with TTabSheet.Create(PageControl1) do begin PageControl := PageControl1; Caption := 'New Sheet'; Show; end; ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/1/5 16:28:56 | ||||
| 4楼： | 好! 创建好子 'New Sheet' 页后,怎样给它定义一个onshow事件? ---------------------------------------------- - |
|||||
| 作者： |
|
2004/1/5 17:48:09 | ||||
| 5楼： | procedur TForm1.SheetOnShow(Sender: TObject); begin // Do something end; procedur TForm1.Button1(Sender: TObject); begin with TTabSheet.Create(PageControl1) do begin PageControl := PageControl1; Caption := 'New Sheet'; OnShow := SheetOnShow; Show; end; end; ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/1/5 19:04:06 | ||||
| 6楼： | 来晚了，都给人家说完了！ ---------------------------------------------- 老杨 |
|||||
| 作者： |
|
2004/1/5 19:52:59 | ||||
| 7楼： | 老杨 大哥？ 难呀？？！！ 在IMAGE中用Tcanvas的polygon 画一个 任意多边形 如何把他截图出来？ ----------------------------------------------  
|
|||||
| 信息 |
| 登陆以后才能回复 |
