setupin.pas

本程序通过电梯的例子,演示了DELPHI环境下的多线程用法,很有参考价值哦

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.