我的三个窗体,Main,xxk和add,三者的关系是fsMDIForm,fsMDIChild,fsMDIChild.
现在存在的问题是在Main下能弹出xxk,而在xxk下add.show就出现调试不通.
我想请这里的大大把这三个窗体之间的关系跟我说一下好吗?main是主窗体,xxk是子窗体,add是他们两个的子窗体。
我现在最想的是让add窗体能弹出来。
现在存在的问题是在Main下能弹出xxk,而在xxk下add.show就出现调试不通.
我想请这里的大大把这三个窗体之间的关系跟我说一下好吗?main是主窗体,xxk是子窗体,add是他们两个的子窗体。
我现在最想的是让add窗体能弹出来。
代码怎么写的?
还有add窗体不能设置fsMDIChild
unit TSXXGLk;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, xpBitBtn, Grids, DBGrids;type
TTSXXGLk = class(TForm)
DBGrid1: TDBGrid;
xpBitBtn1: TxpBitBtn;
xpBitBtn2: TxpBitBtn;
xpBitBtn3: TxpBitBtn;
xpBitBtn4: TxpBitBtn;
xpBitBtn5: TxpBitBtn;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label1: TLabel;
procedure xpBitBtn1Click(Sender: TObject);
procedure TSXXGLKOnClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;var
bookMng: TTSXXGLk;implementation
uses DM,login,ADD,main;{$R *.dfm}
procedure TTSXXGLk.xpBitBtn1Click(Sender: TObject);
begin
XZSJ.Show;
end;procedure TTSXXGLk.TSXXGLKOnClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:= caFree;
end;end.
我都是使用的默认生成,childform也释放了,再次打开就内存地址错,为什么?需要注意哪里?我今天一天被这种地址错搞得火气留的。