comman.pas

来自「基于DELPHI的列车时刻查询系统设计与实现」· PAS 代码 · 共 25 行

unit Comman;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  se_controls, KsSkinSpeedButtons, KsSkinToolBars, KsSkinGroupBoxs,
  ksskinsplitter, Grids, DBGrids, KsSkinDBGrids, KsSkinLabels, KsSkinEdits;  

  procedure MBox(strText,strCaption,strFlag:string);

implementation


procedure MBox(strText,strCaption,strFlag:string);
begin
  if strFlag = 'warning' then
    Application.MessageBox(pchar(strText),pchar(strCaption),mb_ok+mb_iconwarning);
  if strFlag = 'ok' then
    Application.MessageBox(pchar(strText),pchar(strCaption),mb_ok+mb_iconinformation);
end;


end.