bb.pas

delphi的学习资料

unit BB;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons;
type
  TfmBB = class(TForm)
    btn1: TBitBtn;   LbBDat1: TLabel;  LbBDat2: TLabel;  edtB: TEdit;
    procedure btn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormHide(Sender: TObject);
  public
    BDat1: word;     // 只是TfmBB的局部变量，不能做初始化
  end;
var
  fmBB: TfmBB;
  BDat2: word=20;   // BB的全局变量

//////////////////////////////////////////////////////////////////////////////  
implementation
uses Main;
{$R *.DFM}

procedure TfmBB.btn1Click(Sender: TObject);
begin
  fmMain.SetFocus;
end;

procedure TfmBB.FormActivate(Sender: TObject);
begin
  BDat1:=BDat1+10;
  LbBDat1.Caption:=IntToStr(BDat1);
//  BDat2:=BDat2+20;
//  LbBDat2.Caption:=IntToStr(BDat2);
  edtB.Text:='555';
end;

procedure TfmBB.FormHide(Sender: TObject);
begin
  fmMain.LbBDat1M.Caption:=LbBDat1.Caption;
  fmMain.LbBDat2M.Caption:=LbBDat2.Caption;
end;


end.