sys_sys.pas

来自「一个MRPII系统源代码版本」· PAS 代码 · 共 34 行

unit Sys_Sys;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Common, ExtCtrls, jpeg, Base, Db, AdODB;

Type
  TFrm_Sys_Sys = Class(TFrm_Base_Common)
    Image1: TImage;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Sys_Sys: TFrm_Sys_Sys;

implementation

{$R *.DFM}

procedure TFrm_Sys_Sys.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Action:=cafree;
end;

end.