一个关于标签式窗体的问题！

Question

有一本书叫《delphi 程序开发范例宝典 第二版》，它的第52个实例对我非常有用。但不知道子窗体上的退出按钮怎么做，例程没有给出代码，有没有高手帮助解决一下！
需要源程序的告诉我邮箱，我给你们发！

Answer 1

新建一个单元unit Unit1;interface
  uses
    Messages;
const  WM_FORM_CLOSED_INFO = WM_USER + 100;implementationend.
然后主窗体子窗体都引用这个单元。
在主窗体增加一下事件procedure HandleFormClosedMsg(var Message: TMessage); message WM_FORM_CLOSED_INFO;procedure TFrmMain.HandleFormClosedMsg(var Message: TMessage);
begin
  if Message.Msg = WM_FORM_CLOSED_INFO then
    FreeTabSheet(PageControl1.ActivePage);
end;
在子窗体的退出事件中PostMessage(Application.MainForm.Handle, WM_FORM_CLOSED_INFO, Self.Handle, 0);

Answer 2

我以前是直接调用主窗体的 FreeTabSheet ，关是关了，就是报错。希望你能给个原理说明，发到我邮箱，[email protected] 十分感谢！