changecol.pas

来自「线性规划CAI应用程序及原代码」· PAS 代码 · 共 43 行

unit changecol;

interface

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

type
  Tchangescreenform = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Label1: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  changescreenform: Tchangescreenform;

implementation

uses lpmain;
{$R *.DFM}

procedure Tchangescreenform.BitBtn1Click(Sender: TObject);
begin
	defaultwidth:=strtoint(edit1.text);
        main.show;
end;

procedure Tchangescreenform.BitBtn2Click(Sender: TObject);
begin
	changescreenform.hide;
end;

end.