关于tobjest的问题。(20分)

T

taoqg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-31

• #1

procedure tmain.B2Click(Sender: TObject);
begin
showmessage(sender.ClassName );
end;
我只能知道sender的classname,我有几个button都调用b2click,我想知道具体sender的name如button1或button2,如何实现？

 

K

kokusan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-31

• #2

是要
(sender as TButton).name
吗？

 

T

taoqg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-31

• #3

kokusan:
我想知道的是那个按扭调用的。

 

S

sherman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-31

• #4

不是有 SENDER.NAME吗，所有TCOMPONENT都有NAME
SHOWMESSAGE((SENDER AS TCOMPONENT).NAME);

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-31

• #5

哎，来晚了，让sherman抢先了。

 

T

taoqg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-31

• #6

多人接受答案了。