关闭

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

标签: string
203人阅读 评论(0) 收藏 举报
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; 
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:9241次
    • 积分:219
    • 等级:
    • 排名:千里之外
    • 原创:10篇
    • 转载:6篇
    • 译文:0篇
    • 评论:1条
    文章存档
    最新评论