speedButton GroupIndex problem ?

[thomas2009]

Hallo,

ich habe 3 Speedbuttons
alle sind in einer Group
Ich möchte wenn ich auf das SpeedButton1 anklicke wird das Button Down aber wenn ich
auf das SpeedButton noch einmal anklicke, dann soll UP (ohne auf das SpeedButton "OFF" drücken zu müssen")

siehe Anhang

[himitsu]

Setz mal AllowAllUp der SpeedButtons auf True

[edit]
ach ja, wenn [OFF] auch noch "down" werden soll, wenn sonst nix "down" ist, dann
zusätzlich einfach noch allen SpeedButtons diese OnClick-Prozedur zuweisen

Delphi-Quellcode:

// 3 Buttons - und der 1. ist immer gedrückt, wenn sonst nix gedrückt ist
Procedure TForm1.SpeedButton1to3Click(Sender: TObject);
  Begin
    If not SpeedButton2.Down and not SpeedButton3.Down Then 
      SpeedButton1.Down := True;
  End;

[thomas2009]

Es hat doch geklappt mit AllowAllUp. Vielen Dank