菜鸟请教关于对话框的程序！

这里边i是MessageDlg的返回值，MessageDlg我也没研究过，这段代码可以改写为：
if MessageDlg('是否要关闭该窗口？',MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON2) = IDYES then
CanClose := true
else
CanClose := false;

Delphi中MDI子窗口的关闭方式默认为缩小而不是关闭，所以当你单击子窗口右上角的关闭按钮时会发觉该子窗口只是最小化，而不是你预期的那样被关闭。解决办法是在子窗口的OnClose事件处理过程中加入如下代码，示例：

procedure ChildForm.OnClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;


caFree是delphi MID子窗口的关闭模式
Delphi为一个Form的关闭行为指定了四种方式，分别是：
caNone 禁止Form被关闭
caHide Form不被关闭，但是被隐藏。被隐藏的Form仍然可以被程序访问。
caFree Form被关闭，并且释放其占用的资源。
caMinimize Form被最小化而不是被关闭，这是MDI子窗口的默认关闭行为。