delphi ShowMessage方法

function   ShowMessage(const   Msg:string;MsgType:MessageType):integer;   
  var   head,mssg:array[0..100]   of   char;   
          mb:word;   
  begin   
      mb:=0;   
      if   MsgType=msgWarn   then   
      begin   
          head:=’警告’;   
          mb:=MB_OK   or   MB_ICONWARNING;   
      end;   
      if   MsgType=msgError   then   
      begin   
          head:=’错误’;   
          mb:=MB_OK   or   MB_ICONERROR;   
      end;   
      if   MsgType=msgInfo   then   
      begin   
          head:=’信息’;   
          mb:=MB_OK   or   MB_ICONINFORMATION;   
      end;   
      StrPCopy(Mssg,msg);   
      Result:=Application.MessageBox(mssg,head,mb);   
  end;

本文固定链接: http://www.ccsbbs.com.cn/archives/6407.html | 极限手指

该日志由 极限手指 于2013年04月11日发表在 Delphi 分类下, 你可以发表评论,并在保留原文地址及作者的情况下引用到你的网站或博客。
原创文章转载请注明: delphi ShowMessage方法 | 极限手指

delphi ShowMessage方法:等您坐沙发呢!

发表评论

您必须 [ 登录 ] 才能发表留言!