急请教如何实现通过一个按钮按下来控制另一个按钮弹起，多谢

急！！！请问怎么实现通过一个按钮按下来控制另一个按钮弹起，谢谢！
两个差不多的问题，请帮忙，谢谢！
1、首先按下一个按钮A凹下去，按下B时，A按钮弹起，但是B按钮不凹下去

2、当两个按钮不在同一个panel中时，怎么实现按下A按钮时，A按钮凹进去，按下B按钮时，A按钮弹起，B按钮凹进去！





[解决办法]
如果按钮有group属性，可以自动有这样的功能的：同一group的按钮，同时只会有一个是陷下去的
[解决办法]

Delphi(Pascal) code

procedure TForm1.RzButton1Click(Sender: TObject);begin    RzButton1.GroupIndex:= 1;    RzButton1.Down:= true;end;procedure TForm1.RzButton2Click(Sender: TObject);begin    RzButton1.GroupIndex:= 0;    RzButton1.Down:= false;end;