delphi MDI 子窗体关闭后再打开报错，请大家看看什么原因

[guxinren521]

//父
unit sybz_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Mz_dl, ToolWin, ActnMan, ActnCtrls, ActnMenus, Menus, ImgList,
  ComCtrls, ExtCtrls,Unit_cx,Unit_dj, DB, DBTables, Grids, DBGrids,
  StdCtrls,Unit_dm1;

type
  Tmain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    ImageList1: TImageList;
    stat1: TStatusBar;
    tmr1: TTimer;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Button1: TButton;
    procedure FormShow(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure tmr1Timer(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
     sybz_dj: Tsybz_dj;
     sybz_cx: Tsybz_cx;
    { Public declarations }
  end;

var
  main: Tmain;

implementation

{$R *.dfm}

procedure Tmain.FormShow(Sender: TObject);
begin
    Dl_form.Showmodal;
end;

procedure Tmain.FormActivate(Sender: TObject);
begin
  stat1.Panels[0].Text:='操作人姓名：' +dl_form.Edit1.Text;
  if Dl_Form.Edit1.Text='管理员'
  then
  begin
     main.Enabled:=False;
     MessageBox(0,'请勿使用公用管理员帐号登录本系统！','提示！',MB_ICONSTOP);
     Close;
  end;
end;

procedure Tmain.tmr1Timer(Sender: TObject);
begin
  Stat1.Panels[1].Text:=   FormatDateTime( 'yyyy "年 "mm "月 "dd "日 "   hh:mm:ss ',   Now());
end;

procedure Tmain.N1Click(Sender: TObject);

begin

  //保持窗口唯一

  if sybz_dj = nil then
  begin
    sybz_dj := Tsybz_dj.Create(Self);
  end
  else
  begin
    sybz_dj.Show;
  end;
  sybz_dj.WindowState := wsMaximized; 
 end;






procedure Tmain.N2Click(Sender: TObject);


begin
  if sybz_cx =nil then
  begin
    sybz_cx := Tsybz_cx.Create(nil);
  end
  else
  begin
    sybz_cx.Show;
  end;
  sybz_cx.WindowState := wsMaximized;

end;


procedure Tmain.Button1Click(Sender: TObject);
begin
    dm1.qry_jrtj.Active:=True;
end;

procedure Tmain.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Caption := IntToStr(X) + chr(32) + IntToStr(Y);
  if (X < Panel1.Left+200) or
     (X > Panel1.Left + Panel1.Width) or
     (Y < Panel1.Top) or
     (Y > Panel1.Top + Panel1.Height) then
    Panel1.Hide
  else
    Panel1.Show;
    
end;

end.

//子
unit Unit_dj;

interface

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

type
  Tsybz_dj = class(TForm)
    Label1: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sybz_dj: Tsybz_dj;

implementation

{$R *.dfm}

uses sybz_main;
procedure Tsybz_dj.FormActivate(Sender: TObject);
begin
  main.stat1.Panels[2].Text:='登记状态';
end;

procedure Tsybz_dj.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action   :=   caFree;
  sybz_dj   :=   nil;
end;

procedure Tsybz_dj.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Caption := IntToStr(X) + chr(32) + IntToStr(Y);
    if (X < main.Panel1.Left+200) or
       (X > main.Panel1.Left + main.Panel1.Width) or
       (Y < main.Panel1.Top) or
       (Y > main.Panel1.Top + main.Panel1.Height) then
      main.Panel1.Hide
    else
      main.Panel1.Show;
end;

end.

[moshao6]

sybz_dj := nil;
这个放到窗体的destroy事件下吧。
好像这样没有什么区别啊

[ZyxIp]

你在主窗体设置了 sybz_dj:Tsybz_dj;定义了一个窗体

在子窗体中还有一个sybz_dj.

在主窗体中创建子窗体时其实用的是主窗体的 sybz_dj 变量
子窗体在close 时 sybz_dj:=nil;其实是 子窗体的变量。

在第二次打开时，主窗体中的 sybz_dj <> nil ;这里调用 sybz_dj.show 肯定会错了.

[ZyxIp]

我觉得你的程序有几个问题:
1.窗体命名不好, Tsybz_dj 让别人看根本就不知道是个窗体.最好命令是 Tfrm_sybzdj 所有的窗体都加上 tfrm前缀。
2.窗体单元命令不好。Unit_dj表现不出这是一个窗体单元最好加上 TWindj 使用 TWin前缀。
3.在窗体调用时不要在调用窗体中定义被调用窗体的变量。你在主窗体中：
public
sybz_dj: Tsybz_dj;
sybz_cx: Tsybz_cx; 这样不好。

4.窗体的创建的代码最好在窗体自己的单元文件中实现,而你的是在主窗体中调用的。可以参考以下的实现方式。

//主窗体

procedure TWinMain.btn_OpenDJ(Sender:Tobject);
begin
  CreateWinsybzdj(参数);
end;

//子窗体
Winsybzdj

  Tfrm_sybzdj=class(tform)

  public
    class function CreateWinsybzdj(参数):Boolean;

  end;

implementation

var 
  frm_sybzdj:Tfrm_sybzdj;
//如果窗体只是 Show出来，则这样写
class function Tfrm_sybzdj.CreateWinsybzdj(参数):Boolean;
begin
  Result:=False;
  if Not Assigned(frm_sybzdj) then
     frm_sybzdj:=Tfrm_sybzdj.Create(Application);

  frm_sybzdj.Show;
  Result:=True;
  //然后在窗体的 Close 事件中 action:=cafree; frm_sybzdj:=nil;
end;

//如果窗体是ShowModal 出来，则这样写
class function Tfrm_sybzdj.CreateWinsybzdj(参数):Boolean;
var 
  frm_sybzdj:Tfrm_sybzdj; //将上面的变量放在这里。
begin
  Result:=False;
  frm_sybzdj:=Tfrm_sybzdj.Create(Application);

  frm_sybzdj.ShowModal;
  Result:=frm_sybzdj.ModalResult=mrOK;
  frm_sybzdj.Free;
end;

[guxinren521]

谢谢 ZyxIp
(前进中...)

没有系统的学习过d 都是看的别人的程序 摸索的 谢谢您的意见，我会努力的

[guxinren521]

//主窗体

procedure TWinMain.btn_OpenDJ(Sender:Tobject);
begin
CreateWinsybzdj(参数);
end;

如果主窗体 像你这样， “CreateWinsybzdj(参数);”是什么意思，是调用子窗体的函数吗？
class function Tfrm_sybzdj.CreateWinsybzdj(参数):Boolean;
如果是的话，出现Undeclared identifier: 'frm_sybzdj' 错误

如果把var
frm_sybzdj:Tfrm_sybzdj;
放到子窗体public下，编译能通过，不过点击按钮出现

Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 0044DB23 in module 'Project1.exe'. Read of address 00000000'. Process stopped. Use Step or Run to continue.
错误

[guxinren521]

代码

//主窗体
unit Twinmain;

interface

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

type
  Tfrm_main = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_main: Tfrm_main;

implementation

{$R *.dfm}

procedure Tfrm_main.btn1Click(Sender: TObject);
begin
  frm_sybzdj.CreateWinsybzdj;

end;

end.
//子窗体
unit Twindj;

interface

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

type
  Tfrm_sybzdj = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  class function CreateWinsybzdj:Boolean;

  end;

var
  frm_sybzdj: Tfrm_sybzdj;

implementation

{$R *.dfm}

class function Tfrm_sybzdj.CreateWinsybzdj:Boolean;
begin
  Result:=False;
  if Not Assigned(frm_sybzdj) then
     frm_sybzdj:=Tfrm_sybzdj.Create(Application);

  frm_sybzdj.Show;
  Result:=True;
end;


end.

[ZyxIp]

主窗体应该是 Tfrm_sybzdj.CreateWinsybzdj(参数); 调用。
代码不是编译通过就行了的。放在什么地方会有什么效果和差别要搞明白。

你以前是搞什么开发的，可以对比着使用。

[guxinren521]

刚接触开发 测试通过，谢谢您 结贴！！！