D
dxydudugo
Unregistered / Unconfirmed
GUEST, unregistred user!
1 4个按钮只需要一个事件处理过程，在处理过程中判断哪
一个按钮按下了，然后做相应的显示过程。怎样才能实现上述过程。
一个按钮按下了，然后做相应的显示过程。怎样才能实现上述过程。
W
wr960204
Unregistered / Unconfirmed
GUEST, unregistred user!
设置按钮的TAG属性为1、2、3、4......
到里卖难判断就行了。
procedure Form1.ButtonClick(Sender:TOBject);
begin
case TButton(Sender).Tag of
1:
begin
............
end;
end;
end;
到里卖难判断就行了。
procedure Form1.ButtonClick(Sender:TOBject);
begin
case TButton(Sender).Tag of
1:
begin
............
end;
end;
end;
V
vmao
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure button1onclick(sender:tobject);
begin
if (sender.as tbutton).name='button1' then
begin
//
end;
if (sender.as tbutton).name='button2' then
begin
//
end;
end
begin
if (sender.as tbutton).name='button1' then
begin
//
end;
if (sender.as tbutton).name='button2' then
begin
//
end;
end
F
fodou
Unregistered / Unconfirmed
GUEST, unregistred user!
同意wr960204
G
guifuli
Unregistered / Unconfirmed
GUEST, unregistred user!
同意wr960204
D
dxydudugo
Unregistered / Unconfirmed
GUEST, unregistred user!
可以[
][]
][]
K
kimlon
Unregistered / Unconfirmed
GUEST, unregistred user!
我用这个办法做了一个400个按钮的软件，
Y
yk46
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure button1onclick(sender:tobject);
begin
if (sender.as tbutton).name='button1' then
begin
//
end;
if (sender.as tbutton).name='button2' then
begin
//
end;
end
使用运行期信息判断控件即可！
begin
if (sender.as tbutton).name='button1' then
begin
//
end;
if (sender.as tbutton).name='button2' then
begin
//
end;
end
使用运行期信息判断控件即可！
D
dxydudugo
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。