main.pas

delphi的学习资料

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ToolWin, ComCtrls, Menus,
  DatMod, Func;

type
  TfmMain = class(TForm)
    Panel1: TPanel;
    MainMenu1: TMainMenu;
    mnAA0: TMenuItem;
    mnBB0: TMenuItem;
    mnCC0: TMenuItem;
    ToolBar1: TToolBar;
    btnAA: TBitBtn;
    btnBB: TBitBtn;
    procedure mnAA0Click(Sender: TObject);
  private    { Private declarations }
  public     { Public declarations }
  end;

var
  fmMain: TfmMain;

implementation

uses AA, BB;

{$R *.dfm}

procedure TfmMain.mnAA0Click(Sender: TObject);
begin
  fmAA:=TfmAA.Create(Self);
  fmAA.ShowModal;
  fmAA.Free;
  fmAA:=nil;
end;




end.