Consultez la propriété Down pour déterminer si un turbobouton est sélectionné. La propriété Down ne s'applique que si la propriété GroupIndex du bouton est non nulle.
procedure TForm1.FormCreate(Sender: TObject); begin speedbutton1.GroupIndex:=1; speedbutton2.GroupIndex:=1; speedbutton2.Visible:=false; // Tu peux directement affecter par defaut end; procedure TForm1.SpeedButton1Click(Sender: TObject); begin if enfonce then SpeedButton2.Down:=true; enfonce:= not enfonce; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question