- 博客(0)
- 资源 (1)
- 收藏
- 关注
uDialog.pas
定制windows对话框、devExpress风格对话框
抛弃windows对话框
procedure MsgBox(const Msg: string); overload;
procedure MsgBox(const Msg: string; Params: array of const); overload;
procedure MsgBox(const Msg: string; X, Y: Integer); overload;
function MsgBox(const Msg: string; MsgType: TMsgType; const Buttons: array of TMsgButton): Integer; overload;
function MsgBox(const Msg: string; Params: array of const; MsgType: TMsgType; const Buttons: array of TMsgButton): Integer; overload;
function MsgBox(const Msg: string; MsgType: TMsgType; const Buttons: array of TMsgButton; HelpCtx: Longint): Integer; overload;
function MsgBox(const Msg: string; MsgType: TMsgType; const Buttons: array of TMsgButton; HelpCtx: Longint; DefaultButton: TMsgButton): Integer; overload;
2020-01-06
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人