uhbjd.pas

来自「恒邦餐饮管理源码。将源码放到C:hbjdcyzy 登陆:1001/1001」· PAS 代码 · 共 37 行

unit uhbjd;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons,shellapi;

type
  Thbjd = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  hbjd: Thbjd;

implementation

uses  u_main;

{$R *.DFM}

procedure Thbjd.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Release;
  hbjd:=NIL;
end;

end.