注意、提示、错误通用对话框函数

原创 2007年09月24日 09:02:00
procedure CreateError(const Msg: string; Sender: TWinControl;
  ico: smallint);
var
  flag: LongInt;
  Info: string;
begin
  case ico of
    1:
      begin
        flag := MB_OK + MB_ICONWARNING;
        Info := '注意';
      end;
    2:
      begin
        flag := MB_OK + MB_ICONERROR;
        Info := '错误';
      end
  else
    begin
      flag := MB_OK + MB_ICONINFORMATION;
      Info := '提示';
    end;
  end;
  if (Sender <> nil) and (Sender.Visible) and (Sender.Enabled) then
    Sender.SetFocus;
  MessageBox(Screen.ActiveForm.Handle, PChar(Msg), PChar(Info), flag +
    MB_APPLMODAL);
  Abort;
end; 

相关文章推荐

线程进程函数调用对话框Updatedata错误

MFC对象不支持多线程操作。MSDN这样解释的:                                                                            ...
  • whucv
  • whucv
  • 2011年08月12日 22:25
  • 3088

android通用的添加错误提示

在android开发涉及到网络请求数据时,如果请求错误,一般需要添加错误提示,这个错误提示可以做成一个通用的类。      先来看一张没有添加错误提示的图:      再来看一张添加错误提示的...

WebBrowser自动点击弹出提示框alert、弹出对话框confirm、屏蔽弹出框、屏蔽弹出脚本错误的解决办法

WebBrowser自动点击
  • xsm360
  • xsm360
  • 2015年04月23日 14:07
  • 668

PHP跳转函数和一个通用的操作提示类的编写

PHP 跳转,即重定向浏览器到指定的 URL,是一个很常见的功能。这种功能也有一些细节性的要求,比如等待多少秒以后跳转,用不用JavaScript实现跳转,等等。下面的跳转方法考虑到很多,并参数化,可...

各种通用对话框

通用对话框函数(Common Dialog Box)  1.   ChooseColor 函数功能:该函数创建一个能使用户从中选择颜色的通用颜色对话框。 函数原型:BOOL Choo...

通用的关于对话框

每当完成一个软件作品的时候,我们需要一个about对话框!     为了省去这样的重复工作,我们有必要制作一个通用的关于对话框!     根据他们的共性,可以分两部分:    一、单位信...

C#通用对话框(打开,保存)

namespace WindowsFormsApplication1 { partial class Form1 { /// /// 必需的设计器变量...

通用对话框Dialog

一、简介        Qt提供了一套标准的通用对话框,极大的提高了使用者的开发效率。本文收集了大部分标准的对话框,用户需要使用时只须复制相应的部分代码就行,不用再到处查找。 二、运行...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:注意、提示、错误通用对话框函数
举报原因:
原因补充:

(最多只允许输入30个字)