unit1.pas

很好地delphi书籍源码

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  public
    procedure Cal(Sender:TObject);
  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;
    Tag:=1;
    OnClick:=Form1.Cal;
  end;
  Button2:=TButton.Create(Frm);
  with Button2  do
  begin
    Parent:=Frm;
    Caption:='减法';
    Top:=50;
    Left:=110+width;
    Tag:=2;
    OnClick:=Form1.Cal;
  end;
end;

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


procedure TForm1.Cal(Sender: TObject);
begin
  if (Sender as TButton).Tag=1 then
    Caption:=IntToStr(SpinEdit1.Value+SpinEdit2.Value)
  else if (Sender as TButton).Tag=2 then
    Caption:=IntToStr(SpinEdit1.Value-SpinEdit2.Value) ;
end;


end.