如何写自定义事件(0分)

W

wxxmlx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #1

如何在一个单元中写只在本单元使用的自定义事件，
我想自定义一个事件,这个事件的功能是这样的
begin
with adoquery1 do
close;
sql.clear;
sql.add('select * from canyinbu id');
execsql;
end;

希望能帮写这个功能的自定义事件。

 

小

小虫子:P

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #2

procedure shijian;
procedure form1.shijian;
begin
with adoquery1 do
close;
sql.clear;
sql.add('select * from canyinbu id');
execsql;
end;

以后就直接用shijian就可以了

 

S

stargazer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-16

• #3

如果这就是你们的事件的话，那你们对事件的理解有偏差。
Delphi中的事件是一个回调方法，是由组件负责定义和调用，由程序负责实现的一种机制。
帖主这里的只是一个普通的方法而已，不是什么事件，只要把这个方法放在Public指示字中即可。