delphi MessageDlg

最新推荐文章于 2023-05-31 08:57:22 发布
原创 最新推荐文章于 2023-05-31 08:57:22 发布 · 654 阅读 · 2 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#delphi


  if MessageDlg('确实要删除?',mtWarning,[mbYes, mbNo],0) <> idYes then//这里判断值不是前面中括号里的，

  begin
    Exit;
  end;

Delphi中Messagedlg用法
weixin_34067049的博客
03-09 191
if MessageDlg('Welcome to my Delphi application. Exit now?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin Close; end; MessageDlg用法 对话框类型：mtwarning——含有感叹号的警告对话框mterror——含有红色...
delphi资源-MessageDLG
02-26
MessageBox对话框是比较常用的一个信息对话框，其不仅能够定义显示的信息内容、信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对话框信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对框。 　1、函数原型及参数 　function MessageBox(hWnd: HWND; Text, Caption: PChar; Type: Word): Integer; 　hWnd：对话框父窗口句柄，对话框显示在Delphi窗体内，可使用窗体的Handle属性，否则可用0，使其直接作为桌面窗口的子窗口。 　Text：欲显示的信息字符串。 　Caption：对话框标题字符串。 　Type：对话框类型常量。 　该函数的返回值为整数，用于对话框按钮的识别。 　2、类型常量
修改delphi自带的Dialogs，使得MessageDlg调用时可以设置显示位置
08-09
修改delphi自带的Dialogs，使得MessageDlg调用时可以设置显示位置
Delphi中messagedlg
自由时间
04-06 764
Delphi中messagedlg日期：2009-5-25 13:38:14浏览(296)标签：Delphiif MessageDlg(Welcome to my Delphi application. Exit now?, mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin Close; end;
Delphi messagedlg 用法
Microblue（严 武）
08-16 3088
if MessageDlg('Welcome to my Delphi application. Exit now?',  mtConfirmation, [mbYes, mbNo], 0) = mrYes then  begin  Close;  end;
Delphi 7 自定义消息框MessageMyDlg
无幻
04-27 7257
在之前的文章《深入了解Delphi 7中的四种消息框》了解到MessageDlg消息框不够强大，而Application.MessageBox、MessageBox实质都是Windows API函数MessageBox，无法根据自己需要所修改。于是，从MessageDlg入手，定制自己所需要的消息框。
Delphi中Messagedlg的用法与汉化
fiy_dream的博客
04-28 1371
messageDlg, 是在对话框显示消息，并等待用户点击一个按钮，然后返回一个整数确定知道是那个按钮. 原型:MessageDlg(const Msg: string; DlgType: TMsgDlgType;Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer Msg:想要提示的文字 DlgType:对话框的类型 Buttons:
Delphi汉化MessageDlg消息提示框的实现方法
男神的专栏
09-29 2004
Delphi汉化消息提示框的实现方法，例：MessageDlg提示框的汉化： （1）在Delphi的安装目录的\Source\Vcl文件夹中找到Consts.pas（XE后应为Vcl.Consts.pas）单元文件； （2）新建一个工程文件，并保存，将Consts.pas（或Vcl.Consts.pas）单元复制到保存的文件夹，并引用该单元文件； （3）修改单元文件以下内容进行汉化，修改后进...
delphi的消息对话框
s13596191285的博客
02-15 2615
1、messagebox：显示一条消息和一个或多个按钮，并且可以通过用户在对话框中的选择接收用户的响应。 2、messagedlg： 语法格式： function messagedlg(const msg:string; AType: TMsgdlgtype; Abuttons; TMsgdlgbuttons; helpctx: longint ):word; 它包括四个参数，第一个参数msg是显示在对话框中的消息；第二个参数Atype是对话框所包含的不同图标类型。 第三个参数AButtons是对话框所包
深入了解Delphi 7中的四种消息框
热门推荐
无幻
03-17 3万+
Delphi中平常使用的消息框有四种形式，有ShowMessage、MessageDlg、Application.MessageBox、MessageBox。
Delphi中文本信息对话框的常用函数
Manson_Wang的博客
06-29 2398
  为了实现程序与操作人员之间更友好的对话，通常会使用一些信息对话框信，这里整理Delphi中常用的集中消息对话框。本文中借鉴了网上的一些总结，程序都是经过本人实测的，谢谢。1.ShowMessage对话框    showmessage()函数是最基础的对话框函数，只有一个参数，就是你要显示的文本，功能较少。举例：showmessage('对话框');2.MessageDlg对话框1、函数原型及参...
Delphi Deweb中弹出式对话框的应用
tradiance的博客
05-31 844
如何实现在DeWeb中弹出对话框
Delphi信息框详解
远方
01-25 756
 //ShowMessage:begin  ShowMessage(提示内容);      {标题默认工程名, 如: Proect1}  Application.Title := 警告;  {如果修改工程标题...}  ShowMessage(提示内容);      {标题是警告}  ShowMessage(第一行 + #13#10 + 第二行); 
Delphi XE之路（7）Mobile MessageDlg函数
5201314的专栏
12-22 2569
在用XE5创建了移动应用后，一般会在工程里添加System.Types, System.UITypes，FMX.Dialogs单元，这里面定义了MessageDlg函数用到的声明、枚举类型定义等。 正常情况下，在windows下使用MessageDlg函数其定义是： function MessageDlg(const Msg: string; DlgType: TMsgDlgTyp
Delphi中关于消息弹窗的总结
最爱吃糖小狂魔的博客
03-28 1869
1.ShowMessage(‘要显示的字串’); 2.application.MessageBox(‘你好!在做测试!’,’提示:’,0); 3. var i:word; begin i:=MessageDlg(‘文件被修改，是否保存?’,mtConfirmation,[mbyes,mbNo,mbCancel],1); end; 4.Application.Messa...
BDNradio: Chat room log of live chat with Danny Thorpe on Delphi 2005
湘程国际集团——技术日记
11-27 3622
This is a log of the chat rooms during the live audio chat from November 19, 2004 on Delphi 2005 with Danny Thorpe , a Borland Chief Scientist, and architect of the Delphi compilers. Danny discusses c
MessageDlg在两个Form中显示的结果不一样
harvardfeng的专栏
06-04 738
先看下面这两个对话框的显示，正如你看到的，效果不一样。 而这两个对话框都是用下面这句显示的，只不过，在两个Form中调用。     MessageDlg('是否退出？', System.UITypes.TMsgDlgType.mtConfirmation,       [System.UITypes.TMsgDlgBtn.mbOK, System.UITypes.TMsgDlgBtn
Delphi MessageDlg 的例子
最新发布
03-09
当然，在 Delphi 中使用 `MessageDlg` 可以为用户提供信息、警告或请求确认。它支持多种对话框类型以及不同的按钮组合，使得开发者可以根据实际需求选择最合适的形式。 ### 基本用法 #### 1. 简单的信息提示 如果你想给用户显示一条简单的通知信息而不期望任何反馈（除了关闭消息框外），你可以这样做： ```delphi procedure TForm1.ShowInfoMsg; begin MessageDlg('这是一条信息', mtInformation, [mbOK], 0); end; ``` 这里的 `mtInformation` 表示这是一个信息型的消息框，而 `[mbOK]` 则指定了只提供一个「确定」按钮供用户点击以关闭该消息框。 #### 2. 请求确认并获取回应 当你要让用户做出二选一的选择时（例如是否继续某个操作），可以用到带有 `Yes` / `No` 按钮的消息框，并通过返回的结果判断用户的意图： ```delphi function TForm1.ConfirmAction: Boolean; var Response: Integer; begin Result := False; Response := MessageDlg('真的要删除这个文件吗？', mtConfirmation, [mbYes, mbNo], 0); if Response = mrYes then Result := True; end; // 调用 ConfirmAction 函数后检查其结果来决定下一步动作 if ConfirmAction then DeleteFile(PChar(FileName)); ``` 在这个例子中，如果用户选择了 "是 (Y)"，那么 `ConfirmAction` 返回 true 并允许程序执行后续的删除命令；反之，则不做处理。 #### 3. 提醒错误发生 有时候应用程序可能会遇到意外情况或是非法输入等问题，这时就需要向用户展示适当的报错信息了： ```delphi procedure TForm1.NotifyError(const Msg: string); begin MessageDlg(Msg, mtError, [mbOk], 0); end; ``` 这里设置了对话框模式为 `mtError` ，同时仅给出“好”的选项让使用者知晓发生了问题即可。 --- 以上就是几种常见情况下如何使用 `MessageDlg` 构建交互式对话的例子。根据你的应用场景调整参数就能满足大多数日常开发所需的功能点了！
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值