【delphi开源代码栏目提醒】:本文主要为网学会员提供Inherit.pas，希望对需要Inherit.pas网友有所帮助，学习一下!

    unit Inherit;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ImgList, ToolWin, ComCtrls;
    
    type
      TTInherit = class(TForm)
        ToolBar1: TToolBar;
        ImageList1: TImageList;
        ToolButton1: TToolButton;
        ToolButton2: TToolButton;
        ToolButton3: TToolButton;
        ToolButton4: TToolButton;
        ToolButton5: TToolButton;
        ToolButton6: TToolButton;
        ToolButton7: TToolButton;
        ToolButton8: TToolButton;
        ToolButton9: TToolButton;
        ToolButton10: TToolButton;
        ToolButton11: TToolButton;
        ToolButton12: TToolButton;
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      TInherit: TTInherit;
    
    implementation
      uses  DataModule;
    {$R *.dfm}
    
    procedure TTInherit.FormClose(Sender: TObject; var Action: TCloseAction);
    begin  {*****窗口关闭事件*****}
        case (Sender as TForm).Tag of  //判断关闭窗口的标志值
          1:  begin
              DM.DS_Class.Enabled := false;  //档案分类资料数据源控件处于非使能态，与提交、取消按钮数据感知控件失去关联关系
              end;
          2:  begin
              DM.DS_Borrow.Enabled := false; //档案借用管理数据源控件处于非使能态，
              end;
          3:  begin
              DM.DS_Manage.Enabled := false; //档案管理数据源控件处于非使能态，
              end;
          4:  begin
              DM.DS_Borrow.Enabled := false; //档案借用管理数据源控件处于非使能态，
              DM.DS_Return.Enabled := false; //档案归还管理数据源控件处于非使能态，
              end;
        end;
        Action := caFree;  //释放空间     
    end;
    
    end.
    

上一篇：InGoodsUnit.pas
下一篇：哈弗F7 VS名爵HS，谁更懂得年轻人的心？