facelaneclass_unt.pas

煤矿行业采掘接替计划自动生成系统

unit FaceLaneClass_Unt;

interface

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

type
  TFaceLaneClass_Frm = class(TFormBase_Frm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    PageControl1: TPageControl;
    FaceClass_Sheet: TTabSheet;
    LaneClass_Sheet: TTabSheet;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FaceClass_SheetResize(Sender: TObject);
    procedure FaceClass_SheetShow(Sender: TObject);
    procedure LaneClass_SheetShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    StartCreate:boolean;
    FaceClassCreate,LaneClassCreate:boolean;
  end;

var
  FaceLaneClass_Frm: TFaceLaneClass_Frm;

implementation

uses Main_Unt,FaceClass_Unt, LaneClass_Unt;

{$R *.dfm}

procedure TFaceLaneClass_Frm.BitBtn2Click(Sender: TObject);
begin
  close;

end;

procedure TFaceLaneClass_Frm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 HaveForm:=false;
 Action:=caFree;
 FaceLaneClass_Frm:=nil;

 Main_Frm.StatusBar1.Panels[0].Text:='';
end;

procedure TFaceLaneClass_Frm.FormCreate(Sender: TObject);
begin
  inherited;
  StartCreate:=true;//已经开始创建
  FaceClassCreate:=false;
  LaneClassCreate:=false;
end;

procedure TFaceLaneClass_Frm.FormResize(Sender: TObject);
begin
  inherited;
  BitBtn1.Width:=BitBtn1.Width-round(BitBtn1.Width/2);
  //showmessage('已经定义了Bitbtn1按钮');
  BitBtn2.Width:=BitBtn2.Width-round(BitBtn2.Width/2);
end;

procedure TFaceLaneClass_Frm.FaceClass_SheetResize(Sender: TObject);
begin
  if StartCreate then//控制变量，只在窗体创建时的Resize事件才执行以下语句
    begin
      if FaceClassCreate then
        begin
          FaceClass_Frm.Show;
          exit;
        end;
      FaceClass_Frm:=TFaceClass_Frm.Create(pagecontrol1.Pages[0]);
      FaceClass_Frm.Parent:=pagecontrol1.Pages[0];
      FaceClass_Frm.Show;
      FaceClassCreate:=true;
      StartCreate:=false;
    end;

end;

procedure TFaceLaneClass_Frm.FaceClass_SheetShow(Sender: TObject);
begin
  if FaceClassCreate then
    begin
      FaceClass_Frm.Show;
      exit;
    end;
  FaceClass_Frm:=TFaceClass_Frm.Create(pagecontrol1.Pages[0]);
  FaceClass_Frm.Parent:=pagecontrol1.Pages[0];
  FaceClass_Frm.Show;
  FaceClassCreate:=true;

end;

procedure TFaceLaneClass_Frm.LaneClass_SheetShow(Sender: TObject);
begin
  if LaneClassCreate then
    begin
      LaneClass_Frm.Show;
      exit;
    end;
  LaneClass_Frm:=TLaneClass_Frm.Create(pagecontrol1.Pages[1]);
  LaneClass_Frm.Parent:=pagecontrol1.Pages[1];
  LaneClass_Frm.Show;
  LaneClassCreate:=true;

end;

end.