摘要：
有时候，我们需要少量修改或增加已有控件的行为或属性，但又不想新写个控件注册到组件面板上或动态创建来用，可以通过同名控件派生来实现。以下这个简单的例子，为 TPanel 增加了 OnPaint 事件：unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;type// 以相同类名派生一个子类TPanel = class(ExtCtrls.TPanel)private FOnPaint: TNotify 阅读全文