【delphi开源代码栏目提醒】：网学会员delphi开源代码为您提供MC_PBList.pas参考，解决您在MC_PBList.pas学习中工作中的难题，参考学习。

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