这是怎么回事?关于application.messagebox if application.MessageBox('Aaaaaa','caption',mb_OKCancel)=mb_OK then exitelse showmessage('hi');为什么无论点确定还是取消,都显示hi呢? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 if application.MessageBox('Aaaaaa','caption',mb_OKCancel)=IDOK then exit else Showmessage('OK');多看看帮助吧. application.MessageBox()返回的都是ID开头的IDOKIDCANCELIDYESIDNO... 另问:如何将这个MessageBox做成Warning样式的呢?或Error样式的呢? 用API的MessageBox:或MessageDlg还是看帮助,另外,,以后问问题给点分, Application.MessageBox('内容','标题',MB_OK+MB_ICONWARNING); Application.MessageBox('内容','标题',MB_OK+MB_ICONERROR);查看Windows单元: MB_OK = $00000000; MB_OKCANCEL = $00000001; MB_ABORTRETRYIGNORE = $00000002; MB_YESNOCANCEL = $00000003; MB_YESNO = $00000004; MB_RETRYCANCEL = $00000005; MB_ICONHAND = $00000010; MB_ICONQUESTION = $00000020; MB_ICONEXCLAMATION = $00000030; MB_ICONASTERISK = $00000040; MB_USERICON = $00000080; MB_ICONWARNING = MB_ICONEXCLAMATION; MB_ICONERROR = MB_ICONHAND; MB_ICONINFORMATION = MB_ICONASTERISK; MB_ICONSTOP = MB_ICONHAND; TMessgeButtons的内容包括入 smbOk smbCancel等值,这里使用mb_Ok和mb_Cancel,为什么用smbOk和smbCancel,然后在单元中添加QForms后,程序会莫明报错,而且Application.Terminate也不起作用了? 原生SOCKET通讯异常--高手指点 怎么取sqlserver 存储过程的返回值 编译好的delphi程序,需要安装什么软件可以使其支持数据库 Case..of 新手问题 遇到这方面问题,不知道怎么弄,希望高手指点!解决马上结贴,失言小狗! DBCHART問題,在線等待!請大俠們指點. 一个数据查询的问题,很头疼虽然简单!! 请教高手150分,请教1.异或校验和, 关于动态查询表为空时,怎样获取一个条件??最终调取一个提示框 打印问题,请高手一定帮我忙!!!! 线程菜问题 请教:怎样用ADOQuery连接带密码的Access数据库?
exit
else
Showmessage('OK');多看看帮助吧.
IDOK
IDCANCEL
IDYES
IDNO
...
或MessageDlg
还是看帮助,另外,,以后问问题给点分,
Application.MessageBox('内容','标题',MB_OK+MB_ICONERROR);
查看Windows单元:
MB_OK = $00000000;
MB_OKCANCEL = $00000001;
MB_ABORTRETRYIGNORE = $00000002;
MB_YESNOCANCEL = $00000003;
MB_YESNO = $00000004;
MB_RETRYCANCEL = $00000005; MB_ICONHAND = $00000010;
MB_ICONQUESTION = $00000020;
MB_ICONEXCLAMATION = $00000030;
MB_ICONASTERISK = $00000040;
MB_USERICON = $00000080;
MB_ICONWARNING = MB_ICONEXCLAMATION;
MB_ICONERROR = MB_ICONHAND;
MB_ICONINFORMATION = MB_ICONASTERISK;
MB_ICONSTOP = MB_ICONHAND;