紧急求救！！！(20分)

常

常山赵子龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #1

请问我怎样才能实现控件数组，并使它们能对同一事件响应。简单的说，就比如在一堆button数组中，找到是哪个OnClick了。

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #2

利用Sender.nam来判断
或者自己设置Sender.Tag

 

常

常山赵子龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-06

• #3

那我岂不是每个按钮都要设置OnClick？

 

扳

扳手

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-06

• #4

关注！

 

S

svw0506

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-06

• #5

用Tag吧

case (Sender as TEdit).Tag of
10..100:begin
//处理过程
end;//end 10_100
//其他情况
end;//end case

 

N

nulk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-07

• #6

procedure btnClk(Sender : TObject)
begin
//
end;
button1.OnClick:=btnClk;
button2.OnClick:=btnClk;
还有更好的写法

 

常

常山赵子龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-08

• #7

case (Sender as TEdit).Tag of
10..100:begin
//处理过程
end;//end 10_100
//其他情况
end;//end case
或
button1.OnClick:=btnClk;
button2.OnClick:=btnClk;
请问这几句应该放在那里?

 

S

svw0506

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-09

• #8

procedure TForm1.Btn_Click(Sender: TObject);
begin
case (Sender as TEdit).Tag of
1: begin
//处理过程
end; //end 1
2: begin
end;
3: begin
end;

//其他情况
end; //end case
end;

end.

//桌面上放几个TButton， 将每个Button的Tag分别改为1,2,3,...
单击一个Button, 在它的OnClick右侧输入: Btn_Click ，然后回车

然后输入如下代码，将其它几个按钮的OnClick事件选择成Btn_Click即可

 

N

nulk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-09

• #9

>>button1.OnClick:=btnClk;
>>button2.OnClick:=btnClk;
>>请问这几句应该放在那里?
OnFormCreate吧

 

常

常山赵子龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-12

• #10

多人接受答案了。