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

最新推荐文章于 2025-02-12 08:00:00 发布

zwylly99

最新推荐文章于 2025-02-12 08:00:00 发布

阅读量415

点赞数

文章标签： string

本文链接：https://blog.youkuaiyun.com/zwylly99/article/details/1797917

版权

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;