unit MRWXFORM;

interface

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

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

var
  MRWX: TMRWX;

implementation

{$R *.dfm}

procedure TMRWX.N2Click(Sender: TObject);
begin
if mrwxform=0 then begin
    if not assigned(jbxx_gsxx) then begin
       JBXX_GSXX:=tJBXX_GSXX.create(self);
       mrwxform:=1;
    end;
  JBXX_GSXX.Top:=height;
  JBXX_GSXX.Left:=(width-jbxx_gsxx.Width) div 2;
  JBXX_GSXX.show;
end else begin
  messagedlg('系統(tǒng)以有窗體被打開(kāi)，清先關(guān)閉以打開(kāi)的窗體。',mterror,[mbok],0);
end;
end.