关于关闭子窗口的问题？急！(200分)

  • 主题发起人 主题发起人 jiefeij
  • 开始时间 开始时间
J

jiefeij

Unregistered / Unconfirmed
GUEST, unregistred user!
var CurrentForm:Tform;//全局变量，当前活动FORM
procedure closeform;
begin
if FrmMain.MDIChildCount>1 then
begin
CurrentForm.Close;
CurrentForm.Free;
CurrentForm :=frmMain.ActiveMDIChild ;
CurrentForm.WindowState := wsMaximized;
end
else
end;
CURRENTFORM是当前活动窗体。frmMain是主窗口。
当打开多个窗口时，用以上过程关闭子窗口时，有时会出现
access violation at address 00000021.read of address 00000021错误。有时又很正常。
 
没有必要记录，frmMain.ActiveMDIChild 就是当前活动FORM
 
在子窗体的onClose事件中加入：Action:=caFree;
 
for i := 0 to frmMain.MDIChildCount - 1 do
frmMain.MDIChildren.Close;
 
TO：MTJ 你说的有理，但这不是问题。
TO：独酷求败 你的方法我试过，不能解决问题。
TO：xyl999 我不是关闭所有的窗口，我只是关闭当前的窗口，而且你那样做也是不对的。
应该for i := 0 to frmMain.MDIChildCount - 1 do
frmMain.MDIChildren[0].Close;
我发现好象是在运行完这个过程后，有转向另一个过程procedure TrpColumnBar.Notification(AComponent: TComponent; Operation: TOperation);

procedure RemoveColumnsDataSet(AColumns: TrpColumns);
var
I: Integer;
begin
with AColumns do
for I := 0 to Count - 1 do
begin
if Items.DataSet = AComponent then Items.DataSet := nil;
if Items.HasChild then RemoveColumnsDataSet(Items.ChildColumns);
end;
end;

begin
inherited;
if Operation = opRemove then
if AComponent is TDataSet then RemoveColumnsDataSet(FColumns);
end;

好象是在这儿出的问题。有谁能告诉为什么会这样。
 
MDI子窗口关闭后下一个子窗口自动成为活动窗口,如果没有下一个窗口则活动窗口为空,
你的
CurrentForm :=frmMain.ActiveMDIChild ;
CurrentForm.WindowState := wsMaximized;//如果没有活动窗口怎么办?
一定会出错!
 
把

CurrentForm :=frmMain.ActiveMDIChild ;
CurrentForm.WindowState := wsMaximized

改为：
if frmMain.ActiveMDIChild <> nill
begin

CurrentForm :=frmMain.ActiveMDIChild ;
CurrentForm.WindowState := wsMaximized
end;
 
to:ysai and chenxz
其实我在FrmMain.MDIChildCount>1 中就已经判断了至少有两个子窗口，关闭一个，至少还有
一个了。所以你们说的还是没有说到问题的根本处。
请各位帮帮忙，我被这个问题折腾了很久了。我想还是在另一个过程中，但到底是什么原因我
就弄不清楚了。
 
你是不是动态创建了控件， 还是安装了控件
procedure RemoveColumnsDataSet(AColumns: TrpColumns);是什么意思，可否屏蔽掉
 
那你把CurrentForm.WindowState := wsMaximized屏蔽掉看看会不会出错。
 
to mtj:
是的，我安装了一个报表打印的控件。不好意思，我上面的程序少粘了，应该是
procedure TrpColumnBar.Notification(AComponent: TComponent; Operation: TOperation);
procedure RemoveColumnsDataSet(AColumns: TrpColumns);
var
I: Integer;
begin
with AColumns do
for I := 0 to Count - 1 do
begin
if Items.DataSet = AComponent then Items.DataSet := nil;
if Items.HasChild then RemoveColumnsDataSet(Items.ChildColumns);
end;
end;

begin
inherited;
if Operation = opRemove then
if AComponent is TDataSet then RemoveColumnsDataSet(FColumns);
end;
我觉得不好屏蔽掉那段代码？有没有好的办法呢？
 
to chenxz:
如果那样做的话，我的界面将会很难看了。怎么样能够运行TrpColumnBarNotification
这个过程可能就可以解决问题了。可是他就是要去运行这个过程
 
我觉得问题就是那句话，你先测试一下，找到问题后再处理好了。
 
我都不知道怎么测试了。我是在一个BUTTON的ONCLICK中调用关闭子窗口过程的，具体
procedure TfrmC.SpdExitClick(Sender: TObject);
begin
try
CloseMyForm;
except
raise;
end;
end;
但是错误出在最后一个END上。
 
那你在OnClose事件中有没有代码?
 
to ysai:
没有
 
OnCreate中呢?
如果有个QQ就好了
 
to ysay:
ONCREATE 中也没有写任何代码，我特意把ONSHOW中的代码去掉。不好意思，
我没有QQ。
我有测了很长时间，我把包含上面NOTIFICATION的过程的单元去掉，还是会出现同样
问题，看来还是窗体本身的问题了。
 
如果方便能不能发代码过来?
 
我觉得应该是你报表控件的问题。
看上面的代码，我觉得好象应该是Form.free 的时候已经释放掉,但你的控件在被释放
的时候有调用RemoveColumnsDataSet ,但实际上它的一些属性这个时候已经不存在了，
所以就产生了错误。
你可以顺着这个思路往下找一下问题！
 
您必须登录或注册才可回复。

Similar threads

S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
将一个被其它程序遮住的窗口激活并弹出到所有窗口的最前面
回复
0
查看
750
import
I
天
【MyBean调试笔记】接口的使用和清理二(关于接口在MyBean中的应用注意）
回复
0
查看
659
天地弦
天
I
自动保存窗口状态的控件
回复
0
查看
933
import
I
后退
顶部