new.pas

来自「《SESyetem节能模拟系统(版本:1.01a Final)》为自由软件,对热」· PAS 代码 · 共 65 行

unit New;

interface

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

type
  TNewForm = class(TForm)
    BOK: TBitBtn;
    BCancel: TBitBtn;
    RadioGroup1: TRadioGroup;
    Balance: TRadioButton;
    Analog: TRadioButton;
    Improve: TRadioButton;
    procedure BOKClick(Sender: TObject);
    procedure BCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  NewForm: TNewForm;    

implementation

uses SESytemMDI,Balance, Analog, Improve,Gas;

{$R *.dfm}



procedure TNewForm.BOKClick(Sender: TObject);
begin
    if Balance.Checked=TRUE then
       begin
           SESystemMDIForm.CommandRichEdit.Lines.Add('命令:热平衡BAL'+chr(13));
           BalanceForm:=TBalanceForm.Create(Self);
           Close;
       end
    else if Analog.Checked=TRUE then
           begin
            SESystemMDIForm.CommandRichEdit.Lines.Add('命令:热模拟ANA'+chr(13));
            AnalogForm:=TAnalogForm.Create(Self);
            Close;
           end
    else if Improve.Checked=TRUE then
           begin
            SESystemMDIForm.CommandRichEdit.Lines.Add('命令:热优化IMP'+chr(13));
            ImproveForm:=TImproveForm.Create(Self);
            Close;
           end

 end;

procedure TNewForm.BCancelClick(Sender: TObject);
begin
Close;
end;

end.