main.pas

delphi的学习资料

unit Main;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, ComCtrls;
type
  TfmMain = class(TForm)
    Panel1: TPanel;    Panel2: TPanel;
    Memo: TMemo;
    edtM: TEdit;
    LbADatM: TLabel;
    LbBDat1M: TLabel;
    LbBDat2M: TLabel;
    btnOpenA: TBitBtn;
    btnActivB: TBitBtn;
    btnHideB: TBitBtn;
    btnClose: TBitBtn;
    btnCloseB: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure edtMKeyDown(Sender:TObject; var Key:Word; Shift:TShiftState);
    procedure btnOpenAClick(Sender: TObject);
    procedure btnActivBClick(Sender: TObject);
    procedure btnHideBClick(Sender: TObject);
    procedure btnCloseBClick(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  public
  end;
var
  fmMain: TfmMain;
  DatM0: Integer;

procedure DispOp(Sender: TObject);

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

procedure DispOp(Sender: TObject);  // 操作显示到 Memo中
var tmp: TBitBtn;
  x: integer;
begin
  tmp:=Sender as TBitBtn;  //类型转换
  fmMain.Memo.Lines.Add(tmp.Caption);
end;

procedure TfmMain.FormCreate(Sender: TObject);
begin
  memo.Clear;
end;

procedure TfmMain.FormShow(Sender: TObject);
begin
  LbBDat1M.caption:='0';
end;

procedure TfmMain.FormActivate(Sender: TObject);
begin
  LbBDat2M.caption:='0';
  edtM.Text:=IntToStr(DatM0);
end;

procedure TfmMain.FormPaint(Sender: TObject);
begin
  LbBDat2M.caption:='0';
  edtM.Text:=IntToStr(DatM0);
end;

procedure TfmMain.edtMKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var  i: integer;
begin
  if key=13 then
    begin
      try
        i:=StrToInt(edtM.Text);
        if fmBB.Visible then
          fmBB.edtB.Text:='* '+IntToStr(i);
      except
      end;
    end;
end;

procedure TfmMain.btnOpenAClick(Sender: TObject);
begin
  fmAA:=TfmAA.Create(self);
  DispOp(Sender);
  Main.DatM0:=fmAA.ShowModal;    // ????????
  fmAA.Free;
  fmAA:=nil;
end;

procedure TfmMain.btnActivBClick(Sender: TObject);
begin
  if not Assigned(fmBB) then    // 不存在fmBB, 则建立
    fmBB:=TfmBB.Create(self);

  fmBB.Show;
  btnHideB.Enabled:=True;  btnCloseB.Enabled:=True;
  DispOp(Sender);

  BDat2:=BDat2+20;
  fmBB.LbBDat2.Caption:=IntToStr(BDat2);

  if (fmBB.WindowState=wsMinimized) or (fmBB.WindowState=wsMaximized) then
    begin
      fmBB.WindowState:=wsNormal;
      memo.Lines.Add('fmBB 还原');
    end;
end;

procedure TfmMain.btnHideBClick(Sender: TObject);
begin
  if Assigned(fmBB) and fmBB.Showing then  //fmBB存在,并显示着，则……
    begin
      fmBB.Hide;
      btnHideB.Enabled:=False;
      DispOp(Sender);
    end;
end;

procedure TfmMain.btnCloseBClick(Sender: TObject);
begin
  if Assigned(fmBB) then
    begin
      fmBB.Close;
      fmBB.Free;
      fmBB:=nil;
      btnHideB.Enabled:=False;  btnCloseB.Enabled:=False;
      DispOp(Sender);
    end;
end;

procedure TfmMain.btnCloseClick(Sender: TObject);
begin
  Application.Terminate;    // 整个应用结束
end;



end.