怎样使用(Sender: TObject)里的Sender(10分)

T

tt123tt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-26

• #1

有两个DBGrid共用一个PopupMenu1 怎样在
procedure TC_Form4.N1Click(Sender: TObject);
begin
在这里判断两个DBGrid
end;

 

W

windwy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-26

• #2

.不好意思看错题了

 

白

白海森

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-26

• #3

procedure TC_Form4.N1Click(Sender: TObject);
begin
if N1.PopupComponent = DBGrid1 then
begin

end;
else
if N1.PopupComponent = DBGrid2 then
begin

end;

end;

 

Y

ysai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-26

• #4

[白海森]的正确,windwy的不对,
Sender指的是菜单项MenuItem(如果只有菜单调用这个过程),
而不是DBGrid

 

Z

zhyanfeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-26

• #5

to 白海森
应该是 PopupMenu1.PopupComponent

 

淡

淡淡的笑

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-26

• #6

Sender: TObject 个人的理解好象是 这个事件的Tobject的父级,,即产生这个事件的Tobject上级
不知道我这样说,,你听不听得懂 -_-

 

三

三点

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-26

• #7

if (Sender as TDBGrid) then

 

白

白海森

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-26

• #8

to zhyanfeng
不好意思，一着急写错了，谢谢你的指正。