以下是引用有容就大在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;
然后再添加实现代码
貌似粉色部分都不能自己写