张志峰的博客

摘要： 举例Application: TAPPlication;构建顺序： 1、构造函数是先继承父类的，初始化父类的成员通过Inherited。 2、析构函数是先释放本对象的，然后在释放父类的成员。sconstructor TApplication.Create(AOwner: TComponent);var P: PChar; ModuleName: array[0..255] of Char;begin inherited Create(AOwner); if not Assigned(Classes.ApplicationHandleException) then Classes.Applica 阅读全文

摘要： program WindowDemo;uses Windows, Messages;// 窗口函数，窗口接到消息时被Windows所调用function WindowProc(hwnd : HWND; uMsg : Cardinal; wParam : WPARAM;lParam : LPARAM) : LResult; stdcall;beginResult := 0;case uMsg of// 关闭窗口消息，当用户关闭窗口后，通知主消息循环结束程序WM_CLOSE : PostMessage(hwnd, WM_QUIT, 0, 0);// 鼠标左键按下消息WM_LBUTTONDOWN : 阅读全文

摘要： 在TObject类中，有一个Dispatch()方法和一个DefaultHandler()方法，它们都是与消息分发机制相关的。Dispatch()负责将特定的消息分发给合适的消息处理函数。首先它会在对象本身类型的类中寻找该消息的处理函数，如果找到，则调用它；如果没有找到而该类覆盖了TObject的DefaultHandler()，则调用该类的DefaultHandler()；如果两者都不存在，则继续在其基类中寻找，直至寻找到TObject这一层，而TObject已经提供了默认的DefaultHandler()方法。unit Unit_MessageDispatch;interface uses 阅读全文