aa.pas

来自「delphi的学习资料」· PAS 代码 · 共 56 行

unit AA;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons;
type
  TfmAA = class(TForm)
    btnClose: TBitBtn;
    LbADat: TLabel;
    edtA: TEdit;
    procedure btnCloseClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure edtAKeyPress(Sender: TObject; var Key: Char);
  end;
var
  fmAA: TfmAA;

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

var
  ADat: word=1000;


procedure TfmAA.FormActivate(Sender: TObject);
begin
  BorderIcons:=[];
  LbADat.Caption:=IntToStr(ADat);
  edtA.Text:='666';
  edtA.SetFocus;
end;

procedure TfmAA.btnCloseClick(Sender: TObject);
begin
  ADat:=ADat+3;
  fmMain.LbADatM.Caption:=LbADat.Caption;
  Close;
end;

procedure TfmAA.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  fmMain.Memo.Lines.Add(btnClose.Caption);
  ModalResult:=StrToInt(edtA.Text);   // 作为ShowModal的返回值
end;

procedure TfmAA.edtAKeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9']) then
    Key:=#0;
end;

end.