frm_main.pas

自创的彼此交流账目软件

unit frm_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;

type
  TfrmMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses frm_1001;

{$R *.dfm}

procedure TfrmMain.N2Click(Sender: TObject);
Var
  i : Integer;
begin
  for i := 0 to MDIChildCount - 1 do
  begin
    if MDIChildren[i] is Tfrmgongneng then
    begin
      MDIChildren[i].Show;
      Exit;
    end;
  end;
  frmgongneng := Tfrmgongneng.Create(Application);
end;

end.