stat.pas

本程序是一个简易的计算器源代码。具有一般计算器的所有功能。

unit stat;

interface

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

type
  TStat_Form = class(TForm)
    ListBox1: TListBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Stat_Form: TStat_Form;

implementation
  uses main;
{$R *.dfm}

procedure TStat_Form.BitBtn1Click(Sender: TObject);
begin
     Calculator_Form.Button35.Enabled:=false;
     Calculator_Form.Button36.Enabled:=false;
     Calculator_Form.Button37.Enabled:=false;
     Calculator_Form.Button38.Enabled:=false;
     close;
end;

procedure TStat_Form.BitBtn2Click(Sender: TObject);
begin
    ListBox1.Items.Clear;
end;

end.