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

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;