unit Setupin;

interface

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

type
  TsetupForm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox1: TGroupBox;
    SEMaxLoad: TSpinEdit;
    SEPersonNum: TSpinEdit;
    SEOntime: TSpinEdit;
    SEElavotorSpeed: TSpinEdit;
    SEUpDownTime: TSpinEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    SETakeNum: TSpinEdit;
    Label13: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  setupForm: TsetupForm;

implementation

uses main;

{$R *.DFM}

procedure TsetupForm.BitBtn2Click(Sender: TObject);
begin
    Application.Terminate;
end;

procedure TsetupForm.BitBtn1Click(Sender: TObject);
begin
   Maxload:=SEMaxload.Value;             //電梯最大乘客量
   PersonNum:=SEPersonNum.Value;         //參與仿真人數
   Ontime:=SEOntime.Value;               //人員到齊時間
   ElavotorSpeed:=SEElavotorSpeed.Value; //電梯運行速度
   UpDownTime:=SEUpDownTime.value;       //上下電梯時間
   TakeNum:=SETakeNum.Value;             //乘做電梯次數
   self.hide;
end;

end.