用delphi如何调用确认对话框

victorli 2005-01-21 09:37:17
如题
...全文
882 12 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
Breakc0de 2005-01-22
  • 打赏
  • 举报
回复

Application.MessageBox('确认吗?','Message',MB_YESNO);
Breakc0de 2005-01-22
  • 打赏
  • 举报
回复
MessageBox 定义方法:
Application.MessageBox('确认吗?','Message',MB_YESNO);
Kshape_zh 2005-01-22
  • 打赏
  • 举报
回复
Application.MessageBox('确认吗?','Message',MB_OK+MB_ICONQUESTION);
yzty 2005-01-22
  • 打赏
  • 举报
回复
呵呵
兵兵 2005-01-22
  • 打赏
  • 举报
回复
var
i:ingeger;
begin
i:=Application.MessageBox('确认吗?','询问',MB_YesNoCancel+MB_IconQuestion);
if i=idyes then
...
else if i=idno then
...
else if i=idcancel then
...
end;
shjanen 2005-01-22
  • 打赏
  • 举报
回复
Application.MessageBox('确认吗?','Message',MB_YES);
smiler007 2005-01-22
  • 打赏
  • 举报
回复
if Application.MessageBox('你确认要.........吗?','请确认',MB_YesNo+MB_IconQuestion)=IDYes then
begin
//
end
else
begin
end;
chinaandys 2005-01-22
  • 打赏
  • 举报
回复
messagedlg('你是否确定删除了?',Mtinformation,[mbyes,mbno],0);
herman~~ 2005-01-22
  • 打赏
  • 举报
回复
if MessageDlg('Welcome to my Object Pascal application. Exit now?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
MessageDlg('Exiting the Object Pascal application.', mtInformation,
[mbOk], 0);
Close;
end;
wolfer008 2005-01-21
  • 打赏
  • 举报
回复
application.messagebox('提示内容','提示标题',information,[mbok],0);
shxhark 2005-01-21
  • 打赏
  • 举报
回复
application.messagebox('message info','Hint',48);
jinjazz 2005-01-21
  • 打赏
  • 举报
回复
showmessage('确定')

830

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 非技术区
社区管理员
  • 非技术区社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧