unit1.~pas

来自「很好地delphi书籍源码」· ~PAS 代码 · 共 82 行

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    procedure Plus(Sender:TObject);
    procedure Minus(Sender:TObject);

    { Public declarations }
  end;

var
  Form1: TForm1;
  Button1,Button2: TButton;
  SpinEdit1,SpinEdit2:TSpinEdit;
  procedure CreateButtonAndSpinEdit(Frm:TForm);
implementation

{$R *.dfm}
procedure CreateButtonAndSpinEdit(Frm:TForm);
begin
  SpinEdit1:=TSpinEdit.Create(Frm);
  with  SpinEdit1 do
  begin
    Parent:=Frm;
    Top:=10;
    Left:=70;
  end;
  SpinEdit2:=TSpinEdit.Create(Frm);
  with  SpinEdit2 do
  begin
    Parent:=Frm;
    Top:=10;
    Left:=80+Width;
  end;
  Button1:=TButton.Create(Frm);
  with Button1  do
  begin
    Parent:=Frm;
    Caption:='加法';
    Top:=50;
    Left:=100;
    OnClick:=Form1.Plus;
  end;
  Button2:=TButton.Create(Frm);
  with Button2  do
  begin
    Parent:=Frm;
    Caption:='减法';
    Top:=50;
    Left:=110+width;
    OnClick:=Form1.Minus;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  CreateButtonAndSpinEdit(Form1);
end;


procedure TForm1.Minus(Sender: TObject);
begin
  Caption:=IntToStr(SpinEdit1.Value-SpinEdit2.Value) ;
end;

procedure TForm1.Plus(Sender: TObject);
begin
  Caption:=IntToStr(SpinEdit1.Value+SpinEdit2.Value) ;
end;

end.