• 全部
  • 语言基础/算法/系统设计
  • 数据库相关
  • 图形处理/多媒体
  • 网络通信/分布式开发
  • VCL组件开发及应用
  • Windows SDK/API
  • 问答

这个问题把我难倒了

comecsdn 2003-03-24 04:29:52
在MDI主窗口放置一个按钮cmd1,怎样让它被click后关闭打开的子窗体CForm?

谢谢
...全文
13 点赞 收藏 12
写回复
12 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
citytramper 2003-03-24
可能是actionlist里面封装了的代码,看不到
回复
comecsdn 2003-03-24
谢谢大家的回复,可是照着大家说的方法去做,都不行啊,大部分时候会抛出一个异常,这可怎么办? 现在我从delphi里自动生成一个mdi应用程序,想看看他的 文件--〉关闭 菜单的代码是怎么写的,可是也找不到,怎么回事? 文件-关闭文件 的代码在哪? 谢谢
回复
peterzhou2000 2003-03-24
同意: citytramper(从开始到现在)
回复
dht2003 2003-03-24
楼上说得有道理!
回复
cjfzy 2003-03-24
var i:integer;
begin
for i:=0 to mdimain.mdichildcount-1 do
begin
if mdimain.mdichildren[i].name='cform' then mdimain.mdichildren[i].close;
end;
end;
回复
citytramper 2003-03-24
主窗体有一个字窗体的列表,从列表中找到你要关闭的窗体,再关闭
回复
Magusflp008 2003-03-24
active:=cafree;
回复
MyCrooner 2003-03-24
ActiveMDIChild.Close;
回复
chenam 2003-03-24
帮你up
回复
dancedog 2003-03-24
上面的都说错了。

在主界面关闭子窗口,一般都不会这样做。
关闭子窗口都在子窗口界面上关闭。

如果你应要在主界面关闭子窗口,那就当打开一个子窗口时,赋窗体的标题给一个变量,
然后根据这个变量关闭子窗口。关闭窗口可以用API函数CloseWindow
回复
haerbin982 2003-03-24
procedure TForm1.cmd1Click(Sender: TObject);
begin
close;
end;
回复
haerbin982 2003-03-24
procedure TCForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if messagedlg('您确定要给haerbin982分吗?如果是这样才可以关才窗体,谢谢!',mtwarning,[mbyes,mbno],0)=mryes then
action:=cafree
else
action:=canone;
end;
回复
相关推荐
发帖
Delphi
创建于2007-08-02

4892

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2003-03-24 04:29
社区公告
暂无公告