Bei allen betroffenen SpeedButtons auch den gleichen Wert für GroupIndex gesetzt?
Sonst geht das nicht.
Hab' hier gerade ein Programm laufen, bei dem das einwandfrei funktioniert (seit bestimmt schon 10 Jahren), sowohl beim Anklicken per Maus, als auch durch Setzen im Quelltext.
Delphi-Quellcode:
procedure TMainForm.Dice1Click(Sender: TObject);
begin
if Take1.Down then
Take1.Down := false
else begin
if (not Take1.Down) and (Dice1.Caption = '0') then
application.messagebox ('Bitte erst würfeln!', 'Fehler', mb_OK + mb_IconExclamation)
else
Take1.Down := true;
if RollButton.Enabled then
RollButton.SetFocus;
end;
end;