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

原创 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; 

java实现弹出认证输入框(弹出一个带有用户名和密码输入的对话框)

java如何实现如题的效果,效果图如下:    这个效果让我很好奇,这个效果类型与在ftp服务器上下载需要登录认证的文件时会弹出这个框,在网上查阅了一些资料,不过相关的资料真的很少,找到了一些关...
  • qq791967024
  • qq791967024
  • 2015年01月22日 19:41
  • 5585

layer常用提示框用法

一 layer的普通提示框 效果: 代码: layer.alert('次案件已回库,请选择其他案件', { icon: 5, title: "提示" ...
  • Alice_qixin
  • Alice_qixin
  • 2017年04月17日 14:15
  • 3008

在Android中捕获Application全局异常 阻止系统弹出强制退出的对话框

大家都知道,现在安装 Android 系统的手机和设备千差万别,在模拟器上运行良好的程序安装到某款手机上说不定就出现崩溃的现象,开发者个人不可能购买所有设备逐个调试,所以在程序发布出去之后,如果出现了...
  • wuhongqi0012
  • wuhongqi0012
  • 2013年11月01日 11:32
  • 3058

未公开API函数揭秘——通用对话框...

  • 2009年10月08日 01:51
  • 2KB
  • 下载

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

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

android通用的添加错误提示

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

通用信息,及错误提示源码很漂亮

  • 2010年05月11日 01:14
  • 138KB
  • 下载

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

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

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

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

emacs erlang ,debug,高亮,函数跳转,重构,错误提示,自动补全。一个都不少

原来写过一篇  http://www.erlangchina.net/home-space-uid-11136-do-blog-id-68.html 但是那时候还有问题还未解决。现在可以了。但是...
  • dp0304
  • dp0304
  • 2012年03月21日 15:40
  • 6352
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:注意、提示、错误通用对话框函数
举报原因:
原因补充:

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