MDI子窗体，关闭时的问题

2006-11-22 03:48:00 284 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

jwt1982 墨衍会员 · AI 创作全网分发关注 + 加入社区

vins-mono前端详解（2）——imu预积分本篇文章详细讲解了vins-mono中imu预积分内容，包括复杂的公式推导。阅读详情

我写了一个基本类，其他子窗体都继承于这个窗体
可是我每次关闭子窗体时，都要在每个窗体写如下代码
Action:=caFree;
frmchildname:=nil;

如何写到基本窗体中，避免每个窗体都写这个句代码？

...全文

C#把MDI子窗体变为标签页面(不改写任何控件) 事件处理：监听TabControl的SelectedIndexChanged事件，当用户切换标签页时，确保对应的MDI子窗体被激活。同时，需要处理子窗体关闭事件，以便在关闭时更新TabControl。立即下载

jwt1982

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

newfang 2006-11-26

打赏
举报

frmchildname:=nil;
-------------
self := nil;

阿发伯 2006-11-26

打赏
举报

不太明确要求,譬如,不同类型的子窗体是否只要一个,我现在暂按只要一个的要求,提点思路供参考:

// 基本子窗体
TBaseChild = class(TForm)
...
end;
// 派生A
TAChild = class(TBaseChild)
...
end;
// 派生B
TBChild = class(TBaseChild)
...
end;

// 定义一个基本类类型
TMyChildClass = class of TBaseChild;
// 定义一个枚举,表示不同的子窗体,在主窗体中根据不同的需求设置
TChildType = (ctA, ctB);

// 主窗体中建立子窗体过程,根据选择传入子窗体类型,假设每个子窗体只要一个
procedure MainForm.CreateChild(ChildType: TChildType);
const
ChildClass: array[TChildType] of TMyChildClass = (TAChild, TBChild);
var
Child: TBaseChild;
I: Integer;
begin
I := 0;
// 查找该类型子窗体是否存在
while (I < MDIChildCount) and not (MDIChildren[I] is ChildClass[ChildType]) do
Inc(I);
// 存在,显示之
if I < MDIChildCount then
MDIChildren[I].Show
else // 否则,建立该类型子窗体
begin
Child := ChildClass[ChildType].Create(Application);
Child.Show;
end;
end;

ZyxIp 2006-11-24

打赏
举报

或者将 frm:frmUserList; 定义到主窗体的 private 下。

ZyxIp 2006-11-24

打赏
举报

procedure showUserListForm()
var
frm:frmUserList;
begin
frm:=TfrmUserList.create(self);
frm.show;
end;

在TfrmUserList的关闭时用 Action:=caFree;

jwt1982 2006-11-24

打赏
举报

晕了，我的意思是说，我有许多个子窗体

每个窗体都不同的，我应该如何写到我的基本窗体中？

procedure showUserListForm()
var
frm:frmUserList;
begin
frm:=TfrmUserList.create(self);
frm.show;
end;

这个定义是写不到我的基本窗体里的，否则我所有继承这个窗体的窗体，就都变成基本窗体了呵呵

jwt1982 2006-11-23

打赏
举报

我建立子窗体时是这么写的

if not Assigned(frmUserList) then
begin
Application.CreateForm(TfrmUserList, frmUserList);
frmUserList.Show;
end
else
begin
frmUserList.Show;
frmUserList.BringToFront;
end;

应该怎么写呢？

ZyxIp 2006-11-22

打赏
举报

如果你可能在别的对象中访问子窗体建议你用消息的方式。通过主窗体的MDIChild列表来访问每一个子窗体。
不建议用对象名的方式去访问对象，除去是自己内部创建的。

ZyxIp 2006-11-22

打赏
举报

这要看你的 frmchildname 子窗体变量是如何保存的, 建议不要用全局变量。这样就不用
frmchildname:=nil;了。

foryour 2006-11-22

打赏
举报

Action:=caFree;
seft:=nil;
如果创建子窗体用到Assigned函数就不行了
听楼下解答

MDI子窗体，关闭时的问题

相关推荐