请教一个在于事件调用的问题(在线急等)(30分)

J

jieking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-06

• #1

一个按妞的Button1Click事件,我把想把'Button1Click'做为字符存到数据库中,我可以从数据库里读出来'Button1Click'字符串来给变量AA,让button2获个这个事件如:button2.onclick:=AA;
这样button2的事情点击了就相当执行了button1的事件了!

 

J

javesun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-06

• #2

N难实现。

 

B

bjaman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-06

• #3

可以这样试一下:
var
Proc: TNotifyEvent;
begin
@Proc := MethodAddress('Button1Click');
if Assigned(Proc) then
Proc(nil);
end;

 

J

jieking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-06

• #4

bjaman 大哥,你好强啊,留个联系方式吧,下次好找你'麻烦'!