为不同类型控件的OnClick赋值(100分)

F

fwd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-12

• #1

在一窗体动态建立多个不同类型的控件，想为OnClick属性赋值事先定义的方法ControlClick 我用以下不能实现：
IF IsPublishedProp(Controls,'OnClick') then
SetObjectProp(Controls,'OnClick',ControlClick(Nil));
ControlClick(Nil) 这个有错。不知为何，或另有方法实现。
或TControl(Controls).onClick:=ControlClick
不知如何获取onClick？

 

D

Delphizhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-12

• #2

TControl(Controls).onClick:=Contro.lClick
这样你试试..可以的.

 

F

fwd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-12

• #3

TControl(Controls).onClick:=Contro.lClick
这样是不行的.
OnClick被声明在protected 区中.