| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/2/3 14:57:20 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 各位大侠： 请问程序的一个录入窗口，通过菜单可以顺利打开关闭，怎样在另外的一个查询界面里边通过点右键弹出一个菜单来选择，并这个窗口永远是最上面的，只要这个窗口打开，其它窗口就不能点的。 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/3 15:03:08 | ||||
| 1楼： | ShowModal就可以了 ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/2/3 15:07:05 | ||||
| 2楼： | 我不明白！ ---------------------------------------------- 我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com |
|||||
| 作者： |
|
2004/2/3 15:08:25 | ||||
| 3楼： | 不可以，用这个它会报错，都不能运行， ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/3 15:19:59 | ||||
| 4楼： | 一个笨法子：置其他窗口处于不激活状态就可以了，至于右键可以用弹出菜单来达到目的么！ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/3 15:21:45 | ||||
| 4楼： | 我在菜是这样调用打开的，但右击打开时可以，可在没关闭上次打开的窗口的情况下仍可以打开，也就打开了两次，怎么能只打开一次，且在最上面，也就是不可以对其它窗口操作 procedure TMainFrm.N4Click(Sender: TObject); begin if SBIN = nil then begin SBIN := TSBIN.Create(Application); sbin.Show; end; end; ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/3 15:49:37 | ||||
| 5楼： | 最简单的办法：单窗体模式运行 //菜单事件 procedure TFrmLXGL_main.MenusClick(Sender: TObject); var ID:integer; m:tform; begin id:=0; m:=nil; if (sender is Tmenuitem) then id:=(sender as Tmenuitem).tag; if (sender is Ttoolbutton) then id:=(sender as Ttoolbutton).tag; case id of 11: try m:=TfrmLXgl_input_CX.Create(application); m.showmodal; finnaly m.free; end; 12: try ... ... 13:application.free; end; end; ---------------------------------------------- 我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com |
|||||
| 信息 |
| 登陆以后才能回复 |
