manager.pas

来自「软件类别: 数据库 软件大小: 2.60M 运行环境: Win9xNT/」· PAS 代码 · 共 60 行

unit Manager;

interface

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

type
  Tfrm_Manager = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Cmd_Check: TSpeedButton;
    Cmd_Done: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Cmd_Chuli: TSpeedButton;
    SpeedButton8: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Cmd_CheckClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Manager: Tfrm_Manager;

implementation

uses Check, ChildFrm;

{$R *.dfm}

procedure Tfrm_Manager.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    action:=cafree;
end;

procedure Tfrm_Manager.Cmd_CheckClick(Sender: TObject);
begin
    if frm_Check=nil then
    begin
       // frm_Check:=Tfrm_Check.Create(self,P_Child);
        frm_Check.Show;
    end else
    begin
        frm_Check.Free;
        frm_Check:=nil;
        //frm_Check:=Tfrm_Check.Create(self,P_Child);
        frm_Check.Show;
    end;
end;

end.