messagebox问题,急救!!!!!! if MessageBox('确实要删除吗?', '管统系统',MB_OKCANCEL) = mrOK then ...... 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 with Application do begin NormalizeTopMosts; if MessageBox('确实要删除吗?', '管统系统',MB_OKCANCEL)=MB_OK then RestoreTopMosts; sorry!应该是:if MessageBox('确实要删除吗?', '管统系统',MB_OKCANCEL)=IDOK then with Application do begin NormalizeTopMosts; if MessageBox('确实要删除吗?', '管统系统',MB_OKCANCEL)=1 then RestoreTopMosts;end; 你去试试看吧 with Application do begin NormalizeTopMosts; if MessageBox('确实要删除吗?', '管统系统',MB_OKCANCEL)=mrok then RestoreTopMosts;end; 就用api原生的messageboxif messagebox(handle,'确实要删除吗?','管理系统',mb_okcancel)=mrok then RestoreTopMosts;绝对OK,我经常用的 RadioGroup控件小问题,高手进,在线急等之 喜欢Delphi的大学生们加这个群:31732649 帮忙看一下这段代码 如何解析XML? 操作dbgrid的ondblclick事件,实现dbgrid中的信息返回到edit或combobox的text中,可为什么下面这个语句会出错呢? 【急】怎样让一个子窗体总在最前?不同以往的。 不知pascal的问题是不是往这里投啊? 遍历目录? Delphi中MDI的问题 再问如何控制Excel中的工具? 今天下午不能交出来程序,我就走人了 隐藏程序的方法
begin
NormalizeTopMosts;
if MessageBox('确实要删除吗?', '管统系统',MB_OKCANCEL)=MB_OK then
RestoreTopMosts;
应该是:
if MessageBox('确实要删除吗?', '管统系统',MB_OKCANCEL)=IDOK then
NormalizeTopMosts;
if MessageBox('确实要删除吗?', '管统系统',MB_OKCANCEL)=1 then
RestoreTopMosts;
end; 你去试试看吧
NormalizeTopMosts;
if MessageBox('确实要删除吗?', '管统系统',MB_OKCANCEL)=mrok then
RestoreTopMosts;
end;
if messagebox(handle,'确实要删除吗?','管理系统',mb_okcancel)=mrok then
RestoreTopMosts;
绝对OK,我经常用的