参数传递(50分)

H

huanq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-05

• #1

我在程序中有许多edit,想通过右键显示该点的多个信息(比如说当前值、名称等)
，当然是诸多edit公用一个form，怎样完成这个过程中参数（当前值、名称等）的传递
我可不想在form的oncreate中判断是哪一个点。
多谢多谢，急用[?][?]

 

I

iie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-05

• #2

把每个edit的tag都区分开来

 

C

Chenlili

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-05

• #3

(Sender as Tedit).tag

 

三

三石

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-05

• #4

关注

 

三

三石

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-05

• #5

在其中一个edit的右键单击事件中加入以下代码
procedure TForm1.Edit1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (sender is Tedit) then
begin
a.Caption:=tedit(sender).text; //a 为PopupMenu1中的一项
b.Caption:=tedit(sender).name;　//b 为PopupMenu1中的一项
//。。。你可以加入任意多项
end;
end;
然后将其它Edit的该事件全部指向该过程就可以了
以上在Win2000P+D5上经过测试

 

H

huanq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-06

• #6

多人接受答案了。

 

H

huanq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-06

• #7

多谢三位，你们的答案启发了我，多谢