unt_cbase.pas

来自「煤矿行业采掘接替计划自动生成系统」· PAS 代码 · 共 51 行

unit Unt_CBase;

interface

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

type
  TFrm_CBase = class(TForm)
    Panel3: TPanel;
    Btn_Exit: TBitBtn;
    Panel4: TPanel;
    GroupBox1: TGroupBox;
    procedure Btn_ExitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    IsModify:Boolean;
    { Public declarations }
  end;

var
  Frm_CBase: TFrm_CBase;

implementation
  Uses Unt_FBase;
{$R *.dfm}

procedure TFrm_CBase.Btn_ExitClick(Sender: TObject);
begin
 close;
end;

procedure TFrm_CBase.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Dec(MFrmCou);//如果不是Panel子部件,执行Inc(MFrmCou)
 Action:=cafree;
 Frm_CBase:=nil;
end;

procedure TFrm_CBase.FormCreate(Sender: TObject);
begin
 Inc(MFrmCou);
 if not IsModify then IsModify:=false;
end;

end.