inherit.pas

来自「完整的delphi书籍源代码,大家有空的时候自己慢慢看看」· PAS 代码 · 共 49 行

unit Inherit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ComCtrls, ToolWin;

type
  TInheritFrm = class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ImageList1: TImageList;
    ToolButton5: TToolButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  InheritFrm: TInheritFrm;

implementation
    uses DataModule;
{$R *.dfm}

procedure TInheritFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  case(Sender as TForm).Tag of
  1:begin
    DM.SchemeDS.Enabled:=false;   //生产计划管理数据源组件处于非使能态
    end;
  2:begin
    DM.Materiel_NeedDS.Enabled:=false;  //物料需求计划管理数据源组件处于非使能态
    end;
  3:begin
    DM.Materiel_StockDS.Enabled:=false; //物料采购计划管理数据源组件处于非使能态
    end;
  end;
   Action:=caFree;        //释放空间
end;

end.