choice.pas

来自「运筹学演示程序之运输问题」· PAS 代码 · 共 56 行

unit choice;

interface

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

type 
  TChoiceForm = class(TForm)
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ChoiceForm: TChoiceForm;

implementation

uses SmallU, LargeU;

{$R *.DFM}

procedure TChoiceForm.BitBtn1Click(Sender: TObject);
begin
  close;
end;

procedure TChoiceForm.SpeedButton1Click(Sender: TObject);
begin
    close;
    pettyform:=Tpettyform.create(application);
    pettyform.panel1.visible:=true;
    pettyform.panel1.bringtofront;
    pettyform.show;
    pettyform.update;
end;

procedure TChoiceForm.SpeedButton2Click(Sender: TObject);
begin
    close;
    largeform:=Tlargeform.create(application);
    largeform.show;
    largeform.update;
end;

end.