怎样同时执行onclick和自定义事件 ( 积分: 50 )

我

我为delphi疯狂

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-20

• #1

请教一下,我在DELPHI中自定义一个按钮控件时,对按钮单击事件赋了一个自定义事件,然后在设计时对按钮ONCLICK事件写代码后,就不能执行自定义事件,如果不写ONCLIKC就可以执行自定义事件,请问要怎么处理???
也就是自定义一个按钮,让onclick 事件和自定义事件在单击时同时会发生,应该怎样处理???

 

我

我为delphi疯狂

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-20

• #2

请教一下,我在DELPHI中自定义一个按钮控件时,对按钮单击事件赋了一个自定义事件,然后在设计时对按钮ONCLICK事件写代码后,就不能执行自定义事件,如果不写ONCLIKC就可以执行自定义事件,请问要怎么处理???
也就是自定义一个按钮,让onclick 事件和自定义事件在单击时同时会发生,应该怎样处理???

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-20

• #3

1、在你的自定义事件中调用onclick事件（把onclick当普通函数用）；
2、在你的onclick事件中调用自定义事件。（就像替换控件的缺省消息处理函数一样）

 

R

robinhanhui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-20

• #4

两者合并到一起,互相调用

 

我

我为delphi疯狂

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-20

• #5

不太明白,我在自定义事件时已对ONclick事件赋自定义事件了

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-20

• #6

比如你的button1有个事件，button1click(sender:tobject);
你又自定义了一个事件，myclick(sender:tobject);
那么1、你修改myclick事件：
procedure form1.myclick(sender:tobject);
begin
button1click(button1);
.....//你的自定义事件语句
end;
2、在form的oncreate事件中替换缺省事件：
button1.onclick:=myclick;

 

F

feitianbianfu16

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-20

• #7

你是自己写的控件么，如果是自己写的控件可以这样将
procedure Txxxx.Click;override；

procedure Txxxx.Click;
begin
inherited;
//自己的事件
end;

 

我

我为delphi疯狂

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-20

• #8

多人接受答案了。

 

捡

捡到钱包

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-20

• #9

在自定义事件里调用BUTTON1。CLICK。这样就好了。

 

捡

捡到钱包

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-20

• #10

应该是在在button1的onclick里调用自定义事件
begin
//自定义事件
//click事件
end;