这个问题把我难倒了

2003-03-24 04:29:52 81 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

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

lumerical-环形谐振器利用mode求解器优化得到所需的环的总长度，即环形器的半径，然后通过varFDTD得到光场分布和透过率. 阅读详情

在MDI主窗口放置一个按钮cmd1,怎样让它被click后关闭打开的子窗体CForm?

谢谢

...全文

本地部署llama3Chinese 这通常意味着你的构建环境可能不完整或者没有正确配置。通常是由 Visual Studio 的 C++ 工具提供的。（大模型对错误的解析）错误信息表明在尝试构建一个项目时，在 Windows 上，阅读详情

comecsdn

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

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;

这个问题把我难倒了

相关推荐