这个问题把我难倒了

Question

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

Answer 1

procedure TCForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if messagedlg('您确定要给haerbin982分吗？如果是这样才可以关才窗体，谢谢！',mtwarning,[mbyes,mbno],0)=mryes then
action:=cafree
else
action:=canone;
end;

Answer 2

procedure TForm1.cmd1Click(Sender: TObject);
begin
close;
end;

Answer 3

上面的都说错了。在主界面关闭子窗口，一般都不会这样做。
关闭子窗口都在子窗口界面上关闭。如果你应要在主界面关闭子窗口，那就当打开一个子窗口时，赋窗体的标题给一个变量，
然后根据这个变量关闭子窗口。关闭窗口可以用API函数CloseWindow

Answer 4

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;

Answer 5

同意： citytramper(从开始到现在)

Answer 6

谢谢大家的回复，可是照着大家说的方法去做，都不行啊，大部分时候会抛出一个异常，这可怎么办？ 现在我从delphi里自动生成一个mdi应用程序，想看看他的 文件--〉关闭 菜单的代码是怎么写的，可是也找不到，怎么回事？ 文件-关闭文件 的代码在哪？ 谢谢

Answer 7

可能是actionlist里面封装了的代码，看不到