如何用最少的代码调用多个控件事件？(100分)

Z

ZhuMichael

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-26

• #1

各位大富翁：
我有一个FORM，上有十几个Button，名称分别如：‘AA’，‘BB’,‘CC’...在另一个
过程中我定义了一个中间变量TEMP，它的值依不同情况分别会是：‘AA’，‘BB’，
‘CC’等。我想知道，如何用最少的代码，通过TEMP的值调用相应Button的Click事件？
（请不要见笑，我对Pascal实在是知道的不多）
100分！

 

B

bluerain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-26

• #2

var
i : integer;
begin
for i := 0 to Form1.ComponentCount - 1 do
begin
if (Form1.Components is TButton) and (Form1.Components.Name = 'Button1') then
TButton(Form1.Components).Click;
end;
end;

 

B

blueboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-26

• #3

TButton(Form1.FindComponent(TEMP)).click;

 

Z

ZhuMichael

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-26

• #4

不好意思，除了Button外，还有很多的Menu...

 

B

bluerain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-26

• #5

同理.
if (Form1.Components is Tmenuitem) and (Form1.Components.Name = 'aa') then
......

 

Z

ZhuMichael

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-26

• #6

多人接受答案了。

 

B

blueboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-26

• #7

你是说 munu 上的每个功能对应到每一个 Button?
你把我munu 上的每个 MenuItem的 OnClick 在设计状态设成与相对应的 Button.OnClick 一样的
就可以了。