以下是引用有容就大在2012-12-19 12:22:58的发言:
呵呵 去试验了下 果然 自己写的事件函数是无效的 即使和IDE自动生成的函数一模一样。
这个就神奇了 为什么呢?

 你还没回复我10楼呢 
双击貌似在类声明里直接生成
type
  // Class reference type (redeclaration)
  TControlClass = class of TControl;
  TCRefForm1 = class(TForm)
    Panel1: TPanel;
    RbtnRadio: TRadioButton;
    RbtnButton: TRadioButton;
    RbtnEdit: TRadioButton;
    procedure RbtnEditClick(Sender: TObject);
    procedure RbtnButtonClick(Sender: TObject);
    procedure RbtnRadioClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
    ClassRef: TControlClass;
    Counter: Integer;
  public
    { Public declarations }
  end;
然后再添加实现代码
貌似粉色部分都不能自己写