改成这样试试!
form1 改成你的formMessageBoxEx(Form1.Handle,'保存线路数据时发现错误,请检查必要的字段是否填写!','错误',MB_OK + MB_ICONERROR,LANG_CHINESE);
Action:=daAbort;
form1 改成你的formMessageBoxEx(Form1.Handle,'保存线路数据时发现错误,请检查必要的字段是否填写!','错误',MB_OK + MB_ICONERROR,LANG_CHINESE);
Action:=daAbort;
解决方案 »
- ListView Report模式添加背景色方法
- 英巴卡迪诺公司(Delphi现在的所有者)北京办事处发来的法务公函
- 我的DELPHI调试COM中间层时一直无法调试得到,不知如何对DELPHI设置,请各位指点。
- Delphi不支持中文(半个汉字问题)
- 学习,请教vpn技术
- 客户机如何从服务器的500个文件中自动更新
- 菜鸟一问:怎样才能在DbEdit1中输入完数据后,在焦点移到下一组件时检测DbEdit1中的数据是否符合格式?
- 通过ADO如何更新或删除视图里的数据?我只想更新一个表!
- 怎样打开正在执行的文件????CreateFile...
- delphi的问题
- Come on!!! DAXIA! 实在很急关于本地表的问题.
- 在大富翁没人给我答案的问题,我把我仅有的95分全部给啦
是TDataModule类型吧。
TDataModule没有Handle属性。
应该使用Form.Handle
或直接使用NIL
Application.MessageBox('保存线路数据时发现错误,请检查必要的字段是否填写!','错误',0+ 16);
[Error] Module.pas(842): Incompatible types: 'HWND'and 'Pointer'
请问怎么解决?
Application.MessageBox('保存线路数据时发现错误,请检查必要的字段是否填写!','错误',0+ 16);
[Error] Module.pas(842): Undeclared identifier: 'Appliaction'
先在数据模块Unit加入一个forms单元;
然后写下:
procedure TDModulefrm.tbXlxxPostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
begin
MessageBoxEx(Application.Handle,'保存线路数据时发现错误,请检查必要的字段是否填写!',
'错误',MB_OK + MB_ICONERROR,LANG_CHINESE);
Action:=daAbort;
end;