Effective BCB Form Program
——窗体事件驱动链引发程序错误分析
BCB中采用的类库是VCL，其编程框架是事件驱动的，类似于VB。我在开发过程中发现，如果不对BCB的事件驱动链进行分析，写的程序会带有很多的错误，健壮性很成问题，而且调试很麻烦。
我发现程序中的很多错误都来源于C++的指针操作。在程序中用new的方法创建了一个对象，然后delete这个对象之后，如果此时还有其它指针指向这个对象，访问此对象信息的代码必定会引发异常。这在C++中是常识性的问题。但这个问题在BCB这类事件驱动的开发环境中就复杂化了。由于事件模型其实是对Windows消息循环机制的一个封装，而Windows中一个消息可能会引发一连串的其他消息，所以，事件之间也是相互引发的，形成一个事件驱动的链条。
在BCB这类RAD的开发环境中，窗体（Form）是最核心的组件，窗体的事件模型也是程序中最需要分析的。
我在BCB5中设计了几种典型情况，针对BCB提供的事件模型，绘出了BCB中的事件驱动链。由于WM_PAINT消息的反复激发，所以我有意识地屏蔽掉了对这一消息的响应事件OnPaint。我发现大多数错误就发生成窗体的生成与销毁过程中，其主要的原因就是程序员选错了事件，将代码放错了地方。所以，我重点分析了工程中窗体的创建和销毁过程中的事件驱动链。
先对BCB的工程文件（BPR）进行分析：
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
WinMain是BCB工程的入口点，Initialize（）一句完成程序的初始化工作，CreateForm（）一句完成窗体的创建工作（在此引发一系列的事件），Run（）一句则进入了消息循环，此时事件主要是用户操作引发的（当然也有定时器等操作系统引发的事件）。
Catch()一句保证应用程序不会引起操作系统的崩溃。但这也是无数的BCB和Delphi程序会引发“XXX内存读写错误”信息的根源所在。正是为了提高BCB程序的健壮性，我才进行了这个实验，其中比较枯燥，不想看记录的人可以直接去看结论部分。
实验记录： 一、由BCB自动创建的Form的事件驱动链 实验一. 工程中只有一个主窗体Form1当窗体中只有一个主窗体(Form1)时，程序运行事件的发生次序如下：
创建Form1构造函数àOnCreate() //到此窗体创建完毕,以下进入窗体的显示过程
àOnShow()àOnActivate()àOnCanResize()àOnConstrainedResize()àOnResize()
窗体显示完毕,以下进入消息循环,等待用户输入.
关闭关闭主窗体Form1时:
OnCloseQuery()àOnClose() //到此退出消息循环
àOnHide()àOnDestory()à~Form1()析构函数
显然,一个窗体要先隐藏,再销毁,最后再调用析构函数
另外：OnShow()à……àOnResize()这一事件链在各种情况中始终不变，下面的记录中我就以……代表这些不变的事件链。
实验二：工程中有两个窗体,Form1为主窗体,Form2为普通窗体当工程中有两个窗体,Form1为主窗体,Form2为普通窗体,事件链如下:
创建Form1构造函数à OnCreate() //到此窗体Form1创建完毕,开始创建Form2
à Form2构造函数
//以下进入Form1的显示过程
àOnShow()à……àOnResize()
除非在代码中指定，缺省情况下Form2只处于加载状态，不会显示，Form2中的OnCreate()等事件代码不会运行。
关闭关闭时,Form2处于隐藏或显示状态均一样:
Form1的OnCloseQuery()àOnClose() //到此退出工程消息循环,以下销毁Form2
àForm2析构函数àForm1的 OnHide()àForm1的OnDestory()à~Form1()析构函数
值得注意的是,这时,Form2的OnDestory()没有被执行,对应地,当它创建时,Form2的OnCreate()也没有执行!
实验三：工程中有两个窗体,Form1为主窗体,Form2继承自Form1在BCB中，可以很方便地继承某个窗体，这是BCB的一个非常好用的功能。
创建Form1构造函数à OnCreate() //到此窗体Form1创建完毕,开始创建Form2
àForm2的OnCreate()àForm1的构造函数àForm2的构造函数 //以下进入Form1的显示过程,同单窗体工程一样àOnShow()à……àOnResize()
值得注意的是:Form2的OnCreate()函数居然先于Form2的构造函数运行!
关闭1．Form2为隐藏状态,
Form1的OnCloseQuery()àOnClose() //到此退出工程消息循环,以下销毁Form2
àForm2析构函数àForm1的析构函数àForm2的OnDestory()àForm1的 OnHide()àForm1的OnDestory()àForm1的析构函数
注意:Form1的析构函数被执行了两次!
2．Form2为显示状态
Form1的OnCloseQuery()àOnClose() //到此退出工程消息循环,以下销毁Form2
àForm2的OnHide()àForm2的析构函数à Form1的析构函数à Form2的OnDestory()àForm1的 OnHide()àForm1的OnDestory()àForm1的析构函数
注意:Form1的析构函数被执行了两次!
两种情况对比,可以发现只多了一个Form2的隐藏过程.
本文地址：http://com.8s8s.com/it/it29866.htm