delphi中messagebox的详细用法
在delphi中删除dbgrid中的一条信息,设置弹出一个对话框,上面有是否删除此信息,有两个按钮,一个是是,另一个是否,如果点击是,则删除此条信息,如果是否就不删除,对...
在delphi中删除dbgrid中的一条信息,设置弹出一个对话框,上面有是否删除此信息,有两个按钮,一个是是,另一个是否,如果点击是,则删除此条信息,如果是否就不删除,对话框关闭,返回刚才的界面?
展开
4个回答
展开全部
if MessageBox(Handle, '要删除选中的信息吗?', '确认', MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2) = IDYES then
begin
//用户点击“是”执行这里的代码
end;
第一个参数是对话框父窗口的句柄
第二个参数是对话框显示的文本内容
第三个参数是对话框的标题内容
第四个参数可以设置对话框的样式,比如提示类型是出错啊 还是信息啊 或者询问啊 显示哪些按钮啊 默认选中哪个按钮啊 这些都由第四个参数决定。
细想的内容 Delphi 的帮助文档里面可以查到。
begin
//用户点击“是”执行这里的代码
end;
第一个参数是对话框父窗口的句柄
第二个参数是对话框显示的文本内容
第三个参数是对话框的标题内容
第四个参数可以设置对话框的样式,比如提示类型是出错啊 还是信息啊 或者询问啊 显示哪些按钮啊 默认选中哪个按钮啊 这些都由第四个参数决定。
细想的内容 Delphi 的帮助文档里面可以查到。
展开全部
使用messagebox有时会出现莫名其妙的麻烦,建议你使用messagedlg.
if messagedlg(' 确实要删除此人信息吗?'+
'要删除,请按“yes”按钮;否则,请按“no”按钮退出此操作。',mtwarning,[mbyes,mbno],0,)=id_yes then
begin
sjmk.sjbj_1.Delete;
button25.Enabled :=false;
edit4.Text:='';
edit5.Text:='';
end;
if messagedlg(' 确实要删除此人信息吗?'+
'要删除,请按“yes”按钮;否则,请按“no”按钮退出此操作。',mtwarning,[mbyes,mbno],0,)=id_yes then
begin
sjmk.sjbj_1.Delete;
button25.Enabled :=false;
edit4.Text:='';
edit5.Text:='';
end;
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
建议安装cnpack,这个是delphi编程插件,让你编程提速,并且与delphi合为一体,其中就有代码助手,快速实现你要的代码。百度里搜吧。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这有虾米难?
if MessageBox(Self.Handle, '是否删除此信息?', '提示', MB_YESNO) = IDYES then
删除信息的操作...;
if MessageBox(Self.Handle, '是否删除此信息?', '提示', MB_YESNO) = IDYES then
删除信息的操作...;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询