Comment faire un Delphi TSpeedButton rester appuyé sur si il est le seul dans le groupe

Je ne suis pas sûr pourquoi, la TSpeedButton a cette propriété, mais quand un TSpeedButton est le seul bouton de groupindex, il ne reste pas enfoncé, si oui ou non "AllowAllUp" est pressé. Peut-être un Jedi de contrôle suffirait, mais j'espère qu'il y a une certaine difficulté. Toute aide ou les anecdotes sont les bienvenues.

BTW, je suis (encore) à l'aide de Delphi 7, ne sais pas si c'est une énigme.

InformationsquelleAutor Peter Turner | 2008-10-14

17

Je n'ai pas de D7 ici, mais dans D2006 un Speedbutton reste en bas si le GroupIndex a une valeur > 0.

Si ce n'est pas le comportement que vous le souhaitez, vous pouvez définir la Propriété manuellement dans le OnClick Eventhandler (assurez-vous que le GroupIndex est 0).

InformationsquelleAutor Roman Ganz
11

J'ai juste essayé que dans Delphi 7 (Build 4.453):
- créer de nouvelles applications
- ajouter TSpeedButton pour former
- ensemble AllowAllUp := true;
- ensemble GroupIndex := 1;
- exécuter l'application
En cliquant sur le bouton, il permet de basculer de son état, sans aucune autre code nécessaire.
- Réponse parfaite, merci
- Comme une réponse parfaite devrait être. Les développeurs sont très paresseux ces jours-ci.
InformationsquelleAutor Uwe Raabe
2

knight_killer est correct. je peux vous dire qu'il va travailler dans n'importe quelle version de delphi:
```
object SpeedButton1: TSpeedButton
  Left = 152
  Top = 384
  Width = 23
  Height = 22
  AllowAllUp = True
  GroupIndex = 99
end
```
- GroupIndex = 99 est arbitraire, droit?
- oui, l'utilisation de tout GroupIndex vous le souhaitez. Mais il faut être supérieure à zéro
- merci, knight_killer pour répondre à la cmt.
InformationsquelleAutor X-Ray
2

Delphi fait le travail pour vous afin de "ne pas écrire du CODE".

Dans l'IDE sélectionnez TOUS vos SpeedButtons que vous
souhaitez fonctionner comme un groupe, puis l'ensemble de l'
du groupe "GroupIndex" quelque chose d'autre que "0"
et vous avez terminé -- SANS CODE, NADA!!

InformationsquelleAutor kevin
1

Hm, étrange, je me souviens à l'aide de ce tout à fait à quelques reprises avec succès. Peut-être que vous devriez essayer de jouer avec les SpeedButton de Down propriété? Je ne pense pas qu'il bascule automatiquement lorsque vous cliquez dessus --- vous devez explicitement bascule Down, je suppose...

[edit: remplacé Checked avec Down --- TSpeedButton n'ont pas de Checked propriété, désolé!]

InformationsquelleAutor onnodb
1

Pour obtenir que cela fonctionne, vous ne pouvez pas basculer vers le Bas de la propriété, parce qu'il est toujours dans l'événement OnClick. Vous avez besoin d'avoir une autre valeur:
```
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  MyBoolProperty := not MyBoolProperty;
  SpeedButton1.Down := MyBoolProperty;
end;
```
InformationsquelleAutor Mark Patterson
0

Le truc est de mettre la GroupIndex à une valeur unique, et de définir AllowAllUp de vrai.
Si vous oubliez le premier, il ne sera pas rester en bas, si vous oubliez le second, il ne va pas rester en place, une fois qu'il a été vers le bas.

InformationsquelleAutor Thomas Mueller

Ensemble AllowAllUp de Vrai.

Ensemble GroupIndex non 0.

De tout garder dans le OnClick, essayez

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

InformationsquelleAutor Steve Graham

0

GroupIndex groupes de boutons. Seulement l'un des boutons du groupe peut être active. Tous d'entre eux doit avoir le même indice supérieur à 0.

AllowAllUp permet de basculer le bouton vers le bas et le haut, lorsqu'il est cliqué 2 fois dans une rangée.

InformationsquelleAutor Jacek Krawczyk
0

J'étais à la recherche d'une solution pour mon problème et je pense que c'est la même.
Je voulais faire un SpeedButton basculer le haut et le bas de l'état comme un interrupteur, et j'ai réussi cela en définissant les propriétés:
```
AllowAllUp := True; 
GroupIndex := 1;
```
Puis dans le OnClick événement du bouton que j'ai écrit:
```
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;
```
Ceci permet de basculer le bouton vers le bas lorsqu'il est cliqué et quand il est cliqué à nouveau.

Espère vous être d'une aide quelconque

InformationsquelleAutor
0

Ensemble AllowAllup de vrai, et en Bas à faux.

Puis dans OnClick événement:
```
....
btn.AllowAllUp := not btn.AllowAllUp;
btn.Down       := not btn.Down;
....
```
InformationsquelleAutor MacGyver

Vous devez vous connecter pour publier un commentaire.