stat.~pas

来自「这是用delphi7写的科学计算器,发给朋友们」· ~PAS 代码 · 共 44 行

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.