Discussion :

[DURVILLE]

J'ai un petit programme avec sur la FORM :
- 8 RadioButton,
- 1 Memo
- 4 Button

A certains moment je cherche à savoir quel RadioButton est coché.
J'utilise le code suivant pour déterminer son index :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
for i := 0 to ComponentCount -1 do
          if Components[i] is TRadioButton then
            with  Components[i] as TRadioButton do
               if CHECKED then numero_radio:=i;
 
                numero_radio:=numero_radio-1;

Dans ce cas je suis obligé d'enlever 1 pour avoir le bon index.

Problème : si je rajoute un simple LABEL à ma FORM le numéro n'est plus bon !
(Il faut enlever 2 !!)
Que se passe-t-il donc ? Mon nb de buttonRadio ne varie pas pourtant.
MERCI de vos explications éclairées ...

[TicTacToe]

Bonjour,

Ce numéro est pour quel usage après ce traitement ?
Car si l'usage est pour un FindComponent après ta boucle, ceci est normal.
Ce sera meme de plus en plus aléatoire.

Quand on pose des composants, il sont nommés automatiquement
'Label1', Label2'...
'RadioButton1', RadioButton2' ..

Components[ 0 ] peut être le composant nommé 'Label1'
Components[ 1 ] peut être le composant 'nommé' RadioButton3'

--> auquel cas, le 1 de Label1 n'a rien a voir avec l'indice du tableau de composant 0

Enfin, si j'ai bien compris ton interrogation

Donc au lieu de sauver l'indice, il te faut sauver le nom du composant pour l'utiliser dans le FindComponents éventuellement.

[tourlourou]

à quoi peut donc bien te servir d'avoir l'index ?

mieux vaut garder un pointeur

[CTICGS]

Essaye avec l'évenement OnClick sur tes RadioButton comme ceci.
ce petit progr. ne fait qu'afficher le numéro du Radio qui a été clické en dernier mais tu peux faire appel à la même fonction dans chaque procédure sans oublier un paramètre "NrChecked".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    Button1: TButton;
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure RadioButton6Click(Sender: TObject);
    procedure RadioButton7Click(Sender: TObject);
    procedure RadioButton8Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    NrChecked : integer;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
    NrChecked := 1;
end;
 
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
NrChecked := 2;
end;
 
procedure TForm1.RadioButton3Click(Sender: TObject);
begin
NrChecked := 3;
end;
 
procedure TForm1.RadioButton4Click(Sender: TObject);
begin
NrChecked := 4;
end;
 
procedure TForm1.RadioButton5Click(Sender: TObject);
begin
NrChecked := 5;
end;
 
procedure TForm1.RadioButton6Click(Sender: TObject);
begin
NrChecked := 6;
end;
 
procedure TForm1.RadioButton7Click(Sender: TObject);
begin
NrChecked := 7;
end;
 
procedure TForm1.RadioButton8Click(Sender: TObject);
begin
NrChecked := 8;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Num Checked : ' + IntToStr(NrChecked));
end;
 
end.

[Malone]

Pourquoi ne pas utiliser le tag des radiosbouttons pour les referencer?
parce que la l'index de composant c'est pas le top à mon avis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
for i := 0 to ComponentCount -1 do
          if Components[i] is TRadioButton then
            with  Components[i] as TRadioButton do
               if CHECKED then numero_radio:=Components[i].tag;

Mais bon il faudrait en savoir plus sur le but/besoin pour faire un truc plus carré.

edit:j'avais pas fait gaffe, mais pour les radios bouttons, logiquement un seul doit etre coché sur le controle non? j'ai pas delphi sous la main, mais normalement tu as une propriété du controle qui englobe les radios pour savoir lequel est coché, tout simplement.

[DURVILLE]

En fonction du numéro repéré j'ouvre un fichier texte associé qui est affiché dans un memo.

Ex : pour RadioButton1 j'ouvre Memo_truc1.txt
pour Radiobutton2 : memo_truc2.txt etc...

La réponse de Malone me paraît intéressante.
Celle de Tic Tac Toe donne l'explication du phénomène.

Merci à tous.
Il faut que je teste l'usage de "tag" avant de marquer résolu.

[tourlourou]

et si tu appelais tes RadioButton "Memo_Truc1.txt" etc et récupérais le RadioButton Sender d'un OnClick :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

with Sender as TRadioButton do Fichier:=Name;

[DURVILLE]

Usage de tag : plus possible pour moi vu que je l'utilise déjà (créé dynamiquement pour un autre usage --> mon post précédent!)

Tourlourou : c'est une idée ... Je regarde. mais je ne fais pas de click sur le RadioButton pour cet usage : uniquement pour appeler le texte du memo qui s'affichera.
J'ai besoin de savoir combien j'ai de Radiobutton VISIBLES à un certain moment lorsque je veux en créer un dynamiquement : par un click sur simple Button nommé par ex. "Ajout d'un mémo" ou "Suppression d'un memo"

En fait j'aurai dû utiliser un RadioGroup !!! (Les items m'auraient sauvé la mise je crois)