IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
logo

FAQ DelphiConsultez toutes les FAQ

Nombre d'auteurs : 124, nombre de questions : 929, dernière mise à jour : 31 décembre 2023  Ajouter une question

 

Cette FAQ a été réalisée à partir des questions fréquemment posées sur les forums Delphi et Delphi et bases de données de www.developpez.com et de l'expérience personnelle des auteurs.

Nous tenons à souligner que cette FAQ ne garantit en aucun cas que les informations qu'elle propose soient correctes. Les auteurs font le maximum, mais l'erreur est humaine. Cette FAQ ne prétend pas non plus être complète. Si vous souhaitez y apporter des corrections ou la compléter, contactez un responsable (lien au bas de cette page).

Nous espérons que cette FAQ saura répondre à vos attentes. Nous vous en souhaitons une bonne lecture.

L'équipe Delphi de Developpez.com.

SommaireInterface utilisateurComposantsLe composant TRadioGroup (2)
précédent sommaire suivant
 

Pour changer la couleur de fond d'un item de RadioGroup, il faut transtyper cet item avec une classe dérivée de TControl et accéder à sa propriété Color. La classe dérivée est nécessaire pour pouvoir accéder à Color, car il s'agit d'un champ protected de la classe TControl.

Code delphi : Sélectionner tout
1
2
3
4
5
6
7
8
9
Type  
  TmyControl = Class(TControl)  
  end;  
  
procedure RGB_ColorItem(RadioGroup: TRadioGroup; ItemIndex: Byte; Color:  
Tcolor);  
begin  
 TmyControl(RadioGroup.Controls[ItemIndex]).color := Color;  
end;

Depuis Delphi 7, on peut directement acceder à la propriété Buttons[Index] du Radiogroup, ce qui donne accès toutes ses propriétés :
Code Delphi : Sélectionner tout
1
2
3
4
5
procedure RGB_ColorItem(RadioGroup: TRadioGroup; ItemIndex: Byte; Color:  
Tcolor);  
begin  
  RadioGroup.Buttons[ItemIndex].Color := Color;  
end;

Mis à jour le 11 mars 2014 anapurna gaabne

Il faut utiliser l'API SetWindowLong sur l'item à passer en multiligne pour lui ajouter cette propriété :

Code delphi : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
procedure ITEM_Multiligne(RadioGroup: TRadioGroup; ItemIndex: Byte;  
multiligne : boolean);  
var  
  tmpStyle : integer;  
begin  
  tmpStyle := GetWindowLong(Tradiobutton(RadioGroup.Controls[ItemIndex]).Handle, GWL_STYLE); // On récupère le style actuel  
  if multiligne then  
    tmpStyle := tmpStyle or BS_MULTILINE // Bouton multiligne  
  else  
    tmpStyle := tmpStyle and (not BS_MULTILINE); // Bouton une ligne  
  SetWindowLong(Tradiobutton(RadioGroup.Controls[ItemIndex]).Handle, GWL_STYLE, tmpStyle); // On applique le nouveau style  
end;
Vous pouvez par exemple utiliser la procédure ITEM_Multiligne pour mettre tous les items en multiligne :
Code delphi : Sélectionner tout
1
2
3
4
5
6
7
8
9
procedure RGB_Multiligne(RadioGroup: TRadioGroup) ;  
var  
  i: Byte;  
begin  
  for i := 0 to RadioGroup.ControlCount - 1 do  
  begin  
     ITEM_Multiligne(RadioGroup,i,true);  
  end;  
end;

Mis à jour le 21 janvier 2014 anapurna

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça


Réponse à la question

Liens sous la question
précédent sommaire suivant
 

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2024 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.