calfrm.pas

本文介绍如何删除由MFC AppWinzard工程中产生的文档/视图结构

unit CalFrm;

interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    Button10: TButton;
    Button11: TButton;
    BitBtn6: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure edit2Click(Sender: TObject);
    procedure edit1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  flag:Boolean;
implementation

{$R *.dfm}
procedure aButtonClick(var button:TButton);
var butt:TButton;
begin
  butt:=button;
  with Form1 do
    begin
    if flag=true then
      BitBtn6.Click;
      flag:=false;
    if edit1.AutoSelect    then
      edit1.Text:=edit1.Text+butt.Caption ;
    if edit2.AutoSelect    then
      edit2.Text:=edit2.Text+butt.Caption;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
aButtonClick(Button1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
aButtonClick(Button2);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
aButtonClick(Button3);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
aButtonClick(Button4);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
aButtonClick(Button5);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
aButtonClick(Button6);
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
aButtonClick(Button7);
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
aButtonClick(Button8);
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
aButtonClick(Button9);
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
aButtonClick(Button10);
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
aButtonClick(Button11);
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
if (edit1.Text ='')and (edit2.Text <>'') then
edit3.Text :=edit2.Text;
if (edit1.text<>'')and (edit2.Text ='') then
edit3.Text :=edit1.Text;
if (edit1.Text ='') and (edit2.Text ='') then
edit3.Text :='0';
if (edit1.Text <>'') and (edit2.Text <>'') then
begin
if trim(label1.Caption )='+' then
edit3.Text:=floattostr(strtofloat(edit1.Text)+strtofloat(edit2.Text ));

if trim(label1.Caption )='-' then
edit3.Text:=floattostr(strtofloat(edit1.Text)-strtofloat(edit2.Text ));

if trim(label1.Caption )='×' then
edit3.Text:=floattostr(strtofloat(edit1.Text)*strtofloat(edit2.Text ));

if trim(label1.Caption )='÷' then
edit3.Text:=floattostr(strtofloat(edit1.Text)/strtofloat(edit2.Text ));
end;
edit1.AutoSelect :=true;
edit2.AutoSelect :=false;
flag:=true;
end;

procedure TForm1.edit2Click(Sender: TObject);
begin
edit1.AutoSelect :=false;
edit2.AutoSelect :=true;
end;

procedure TForm1.edit1Click(Sender: TObject);
begin
edit2.AutoSelect :=false;
edit1.AutoSelect :=true;
end;



procedure TForm1.BitBtn6Click(Sender: TObject);
begin
edit1.Text :='';
edit2.Text :='';
edit3.Text :='0';
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
label1.Caption :='+';
edit2click(sender);
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
 label1.Caption :='-';
 edit2click(sender);
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
label1.Caption :='×';
edit2click(sender);
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
label1.Caption :='÷';
edit2click(sender);
end;

end.