public_data.pas

来自「很不错的客房管理软件.第9次改版正式开通.每日更新.」· PAS 代码 · 共 23 行

unit public_data;

interface

  uses Windows, Messages, SysUtils, Variants, Classes, Forms;

  function MsgBoxI(sContext: string): Integer;
  function MsgBoxQ(sContext: string): Integer;

implementation

function MsgBoxI(sContext: string): Integer;
begin
  Result:=Application.MessageBox(PChar(sContext), '系统提示', 0 or MB_ICONINFORMATION);
end;

function MsgBoxQ(sContext: string): Integer;
begin
  Result:=Application.MessageBox(PChar(sContext), '系统提示', 1 or MB_ICONQUESTION);
end;

end.