急！！！请问怎么实现通过一个按钮按下来控制另一个按钮弹起，谢谢！

[xrhone]

两个差不多的问题，请帮忙，谢谢！
1、首先按下一个按钮A凹下去，按下B时，A按钮弹起，但是B按钮不凹下去

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

[haitao]

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

[haitao]

哦，Tspeedbutton才有groupid

[xrhone]

我是用的Tspeedbutton，但是group只能是在同一panel中有效，在不同的panel中无效

[haitao]

[Quote=引用 3 楼 xrhone 的回复:]
我是用的Tspeedbutton，但是group只能是在同一panel中有效，在不同的panel中无效
[/Quote]

哦，这倒没注意，d7的帮助没说。。。。。。。。
Allows speed buttons to work together as a group.

Delphi syntax:

property GroupIndex: Integer;

C++ syntax:

__property int GroupIndex = {read=FGroupIndex, write=SetGroupIndex, default=0};

Description

Set GroupIndex to determine how the button behaves when clicked.

When GroupIndex is 0, the button behaves independently of all other buttons on the form. When the user clicks such a speed button, the button appears pressed (in its clicked state) and then returns to its normal up state when the user releases the mouse button.

When GroupIndex is greater than 0, the button remains selected (in its down state) when clicked by the user. When the user clicks a selected button, it returns to the up state, unless Caption is false. Setting the GroupIndex property of a single speed button to a value greater than 0 causes the button to behave as a two-state button when Caption is true.

Speed buttons with the same GroupIndex property value (other than 0), work together as a group. When the user clicks one of these buttons, it remains selected until the user clicks another speed button belonging to the same group. Speed buttons used in this way can present mutually exclusive choices to the user.




把panel改为bevel呢？

[caixiaobai08]

o

[xrhone]

我的程序不适合用bevel

其实最主要的是要解决第一个问题：“首先按下一个按钮A凹下去，按下B时，A按钮弹起，但是B按钮不凹下去”

就是要用B按钮来通过代码控制A按钮弹起。

请帮忙看看，谢谢！

[haitao]

[Quote=引用 6 楼 xrhone 的回复:]
我的程序不适合用bevel

其实最主要的是要解决第一个问题：“首先按下一个按钮A凹下去，按下B时，A按钮弹起，但是B按钮不凹下去”

就是要用B按钮来通过代码控制A按钮弹起。

请帮忙看看，谢谢！
[/Quote]
不要设groupid，
按钮a事件里 a.down:=true;
按钮b事件里 a.down:=false; b.down:=false;

[xrhone]

直接写成下面这种是不行的，我试过。
按钮a事件里 a.down:=true;
按钮b事件里 a.down:=false; b.down:=false;

[imho888]

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;

[Harryfin]

Rz的按钮也有GroupIndex属性，不一定用SpeedButton

[yhcustc]

a.Down := not b.Down