bb.pas

delphi的学习资料

unit BB;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, AA, StdCtrls, Buttons, Grids, ExtCtrls;

type
  TfmBB = class(TfmAA)
    LbLines: TLabel;
    btnCloseB: TBitBtn;
//    procedure FormCreate(Sender: TObject);  会被自动继承
    procedure FormActivate(Sender: TObject);
    procedure btnDoClick(Sender: TObject);
    function f2(x: integer): String; override;  // 覆盖方法  开平方
    procedure btnCloseBClick(Sender: TObject);
  private    { Private declarations }
    currRow: byte;
  public     { Public declarations }
  end;

var
  fmBB: TfmBB;

////////////////////////////////////////////////////////////////////////////////
implementation

{$R *.dfm}

//==============================================================================
// 全新, 增补
procedure TfmBB.FormActivate(Sender: TObject);
begin
  pn00.Free;
//  pn00.Visible:=False;
  Height:=btnCloseB.Top+btnCloseB.Height +30;
  Color:=clYellow;
end;

//==============================================================================
// 继承 并 增补
procedure TfmBB.btnDoClick(Sender: TObject);
begin
  inherited;    // 类似于过程调用
  LbLines.Caption:='行: '+IntToStr(sg.Row);
  LbLines.Width:=LbLines.Width+11;
end;

//==============================================================================
function TfmBB.f2(x: integer): String;   // 开平方
begin
  Result:=FormatFloat('0.###0',Sqrt(x));
end;

//==============================================================================
procedure TfmBB.btnCloseBClick(Sender: TObject);
begin
  fmBB.Hide;
end;


end.