| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> 发布代码 斑竹:liumazi,ruralboy | |||||
| 作者： |
|
2003/12/31 13:17:03 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | procedure Tfrm_dingg.Edit11Exit(Sender: TObject); begin if (edit11.text='0') and (edit12.text=') then exit; if strtoint(edit11.Text)>strtoint(edit12.Text) then begin application.MessageBox('库存量不足，不能完成订货！','错误',mb_ok+mb_iconstop); edit11.SetFocus; exit; end; end; (以前application.messagebox里面的提示内容为：’没有那么多商品！’,我现在改为‘库存量不足，不能完成订货！’ 为什么在运行时，如果strtoint(edit11.text)>strtoint(edit12.text)这个条件满足，并且鼠标离开Edit11时，还是显示‘没有那么多商品！’,程序我都编译好几次了。Delphi程序我也关闭打开好几次了。运行时还是出现上面那种情况！我感到很奇怪。请高手多多指点！ ---------------------------------------------- -努力就会有收获！ |
|||||
| 作者： |
|
2003/12/31 14:18:02 | ||||
| 1楼： | 我知道原因了。我把该单元的代码另存为到桌面上了。忘记把它另存为到本盘上了。谢谢大家的帮忙！ ---------------------------------------------- -努力就会有收获！ |
|||||
| 作者： |
|
2003/12/31 14:18:47 | ||||
| 1楼： | 为什么要用application.messagebox 直接用messagebox不可以吗??? ---------------------------------------------- - |
|||||
| 作者： |
|
2003/12/31 14:54:35 | ||||
| 2楼： | 不行的。messagebox是VB上的吧。在Delphi中必须用application.messagebox()或者是showmessage(); ---------------------------------------------- -努力就会有收获！ |
|||||
| 作者： |
|
2003/12/31 15:07:44 | ||||
| 3楼： | 不是的。两个在DELPHI中都可以使用。不过MESSAGEBOX显示的确定按钮是ok.而后者 显示的是'确定' ---------------------------------------------- - |
|||||
| 作者： |
|
2003/12/31 15:16:48 | ||||
| 4楼： | 是不是两个所占的内存大小不一样啊？ ---------------------------------------------- -努力就会有收获！ |
|||||
| 作者： |
|
2003/12/31 22:08:02 | ||||
| 5楼： | Application.MessageBox是Delphi封装的 ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 信息 |
| 登陆以后才能回复 |
