relay_unt.pas

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

unit Relay_Unt;

interface

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

type
  TRelay_Frm = class(TFormBase_Frm)
    PageControl1: TPageControl;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    MineRelay_Sheet: TTabSheet;
    DrillTask_Sheet: TTabSheet;
    DrillRelay_Sheet: TTabSheet;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure MineRelay_SheetResize(Sender: TObject);
    procedure MineRelay_SheetShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DrillRelay_SheetShow(Sender: TObject);
    
    procedure DrillTask_SheetShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    StartCreate:boolean;
    MineRelayCreate,DrillTaskCreate,DrillRelayCreate:boolean;
  end;

var
  Relay_Frm: TRelay_Frm;

implementation

uses Main_Unt, MineRelay_Unt, DrillRelay_Unt, LaneInfo_Unt;

{$R *.dfm}

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

//MineRelay_Frm.Close;
MineRelay_Frm.Free;
MineRelay_Frm:=nil;
MineRelayCreate:=false;

//LaneInfo_Frm.Close;
LaneInfo_Frm.Free;
LaneInfo_Frm:=nil;
DrillTaskCreate:=false;


//DrillRelay_Frm.Close;
DrillRelay_Frm.Free;
DrillRelay_Frm:=nil;
DrillRelayCreate:=false;

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

end;

procedure TRelay_Frm.FormCreate(Sender: TObject);
begin
  StartCreate:=true;//已经开始创建
  MineRelayCreate:=false;
  DrillTaskCreate:=false;
  DrillRelayCreate:=false;
end;

procedure TRelay_Frm.FormResize(Sender: TObject);
begin
  inherited;
  BitBtn1.Width:=BitBtn1.Width-round(BitBtn1.Width/2);
  BitBtn2.Width:=BitBtn2.Width-round(BitBtn2.Width/2);
end;

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

end;

procedure TRelay_Frm.MineRelay_SheetShow(Sender: TObject);
begin
  if MineRelayCreate then
    begin
      MineRelay_Frm.Show;
      exit;
    end;
  MineRelay_Frm:=TMineRelay_Frm.Create(pagecontrol1.Pages[0]);
  MineRelay_Frm.Parent:=pagecontrol1.Pages[0];
  MineRelay_Frm.Show;
  MineRelayCreate:=true;
end;

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

end;

procedure TRelay_Frm.DrillRelay_SheetShow(Sender: TObject);
begin
  if DrillRelayCreate then
    begin
      DrillRelay_Frm.Show;
      exit;
    end;
  DrillRelay_Frm:=TDrillRelay_Frm.Create(pagecontrol1.Pages[2]);
  DrillRelay_Frm.Parent:=pagecontrol1.Pages[2];
  DrillRelay_Frm.Show;
  DrillRelayCreate:=true;

end;

procedure TRelay_Frm.DrillTask_SheetShow(Sender: TObject);
begin
  if DrillTaskCreate then
    begin
      LaneInfo_Frm.Show;
      exit;
    end;
  LaneInfo_Frm:=TLaneInfo_Frm.Create(PageControl1.Pages[1]);
  LaneInfo_Frm.Parent:=PageControl1.Pages[1];
  LaneInfo_Frm.Show;
  DrillTaskCreate:=true;

end;

end.