【delphi开源代码栏目提醒】：网学会员在delphi开源代码频道为大家收集整理了MC_ZXDLL.pas提供大家参考，希望对大家有所帮助!

    unit MC_ZXDLL;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      Grids, DBGrids;
    
    type
      TZXDLL = class(TForm)
        DBGrid1: TDBGrid;
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure DBGrid1DblClick(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      ZXDLL: TZXDLL;
    
    implementation
    
    {$R *.DFM}
    
    procedure TZXDLL.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
         ZXDLL.Release;
         ZXDLL:=Nil;
    end;
    
    procedure TZXDLL.DBGrid1DblClick(Sender: TObject);
    begin
         Close;
    end;
    
    end.