unt_fbase.pas

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

unit Unt_FBase;

interface

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

type
  TFrm_FBase = class(TForm)
    ToolBar1: TToolBar;
    Panel1: TPanel;
    ImageL: TImageList;
    TBtn_Exit: TToolButton;
    ToolButton2: TToolButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TBtn_ExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_FBase: TFrm_FBase;
  MFrmCou:integer=0;

implementation
  {Uses Unt_Main;}
{$R *.dfm}

procedure TFrm_FBase.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  {if MessageDlg('关闭本窗口?', mtConfirmation,[mbYes, mbNo],0)=mrYes
  then begin
        MFrmCou:=0;
        Action:=caFree;
        Frm_FBase:=nil;
        dec(TFrmCou);
       end
  else Action:=caNone;}
end;

procedure TFrm_FBase.TBtn_ExitClick(Sender: TObject);
begin
 close;
end;

end.