How to make a Delphi TSpeedButton stay pressed if it's the only one in the group

Question

I'm not sure why the TSpeedButton has this property but when a TSpeedButton is the only button of a given groupindex, it doesn't stay pressed, whether or not "AllowAllUp" is pressed. Maybe a Jedi control would suffice, but hopefully there's some fix. Any help or anecdotes are appreciated.

BTW, I'm (still) using Delphi 7, not sure if this is an across the board conundrum.

Roman Ganz · Accepted Answer · 2008-10-14T20:55:19.837

19

I have no D7 here, but in D2006 a Speedbutton stays down if the GroupIndex has a value > 0.

If this is not the behaviour you wish, you can set the Down-Property manually in the OnClick-Eventhandler (make sure, that the GroupIndex is 0).

edited Oct 14 '08 at 20:55

answered Oct 14 '08 at 20:47

Roman Ganz

1,615
1
20
27

score 15 · Answer 2 · edited Oct 26 '17 at 01:43

15

I just tried that in Delphi 7 (Build 4.453):

create new application
add TSpeedButton to form
set AllowAllUp := true;
set GroupIndex := 1;
run application

When clicking the button it toggles its down state without any other code needed.

edited Oct 26 '17 at 01:43

Nasreddine Galfout

2,550
2
18
36

answered Oct 15 '08 at 15:46

Uwe Raabe

45,288
3
82
130

Like a perfect answer should be. Developers are very lazy these days. – user30478 Feb 10 '19 at 07:29
If you read the Delphi documentation and any number of books on the subject, this is how it's done. Has been since Delphi 1. (Except the GroupIndex can be any value that's NOT used by any other button GroupIndex value; that button needs a unique number.) – David Schwartz Jul 04 '23 at 01:22

score 2 · Answer 3 · answered Oct 14 '08 at 21:48

2

knight_killer is correct. i can tell you it'll work in any version of delphi:

object SpeedButton1: TSpeedButton
  Left = 152
  Top = 384
  Width = 23
  Height = 22
  AllowAllUp = True
  GroupIndex = 99
end

answered Oct 14 '08 at 21:48

X-Ray

2,816
1
37
66

1

yes, use any GroupIndex you want. But it have to be greater then zero – Roman Ganz Oct 14 '08 at 22:13

score 2 · Answer 4 · edited Jun 01 '11 at 16:19

2

Delphi does the work for you so "don't write ANY CODE".

In the IDE select ALL of your SpeedButtons that you want to operate as a group and then set the whole group's "GroupIndex" to something other than "0" and you are done -- with NO CODE -- NADA!!

edited Jun 01 '11 at 16:19

Jeff Yates

61,417
20
137
189

answered Jun 01 '11 at 15:45

kevin

21
1

onnodb · Answer 5 · 2008-10-14T21:13:45.853

1

Hm, strange, I remember using this quite a few times with success. Perhaps you should try playing with the SpeedButton's Down property? I don't think it toggles automatically when you click it --- you should explicitly toggle Down, I guess...

[edit: replaced Checked with Down --- TSpeedButton doesn't have a Checked property, sorry!]

edited Oct 14 '08 at 21:13

answered Oct 14 '08 at 20:45

onnodb

5,241
1
32
41

score 1 · Answer 6 · answered Oct 30 '08 at 07:17

1

The trick is to set the GroupIndex to a unique value and set AllowAllUp to true. If you forget the first, it will not stay down, if you forget the second, it will not stay up, once it has been down.

answered Oct 30 '08 at 07:17

Thomas Mueller

282
5
8

score 1 · Answer 7 · answered Oct 20 '17 at 11:57

1

GroupIndex groups the buttons. Only one buttons in the group may be active. All of them needs to have the same index higher than 0.

AllowAllUp allows to switch button down and up, when it is clicked 2 times in a row.

answered Oct 20 '17 at 11:57

Jacek Krawczyk

2,083
1
19
25

score 0 · Answer 8 · edited Oct 26 '17 at 02:23

0

Set AllowAllup to true, and Down to false.

Then in OnClick event:

....
btn.AllowAllUp := not btn.AllowAllUp;
btn.Down       := not btn.Down;
....

edited Oct 26 '17 at 02:23

Nasreddine Galfout

2,550
2
18
36

answered Mar 04 '13 at 23:05

MacGyver

2,983
1
17
14

score 0 · Answer 9 · answered Mar 10 '14 at 06:14

To get this to work, you can't just toggle the Down property, because it is always down in the OnClick event. You need to have another value:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  MyBoolProperty := not MyBoolProperty;
  SpeedButton1.Down := MyBoolProperty;
end;

score -1 · Answer 10 · edited Oct 26 '17 at 01:23

I was searching for a solution for my problem and I think this is kind of the same one. I wanted to make a SpeedButton toggle the up and down state just like a switch, and I managed this by setting the properties:

AllowAllUp := True; 
GroupIndex := 1;

Then in the OnClick event of the button I wrote:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  if( SpeedButton1.AllowAllUp ) then 
  begin 
    SpeedButton1.AllowAllUp := False; 
    SpeedButton1.Down := True; 
  end else 
  begin 
    SpeedButton1.AllowAllUp := True; 
    SpeedButton1.Down := False; 
  end; 
end;

This toggles the button down when it's clicked and up when it's clicked again.

Hope it'll be of any help

score -1 · Answer 11 · answered Apr 03 '15 at 14:55

-1

Set AllowAllUp to True.

Set GroupIndex to non 0.

To keep it all in the OnClick, try

 with Speedbutton1 do
 begin
      if tag = 1 then tag := 0 else tag := 1;
      down := (tag = 1);
 end;

answered Apr 03 '15 at 14:55

Steve Graham

114
2
13

How to make a Delphi TSpeedButton stay pressed if it's the only one in the group

11 Answers11

Linked