Discussion :

[Bleys]

Salut,

Bon je reconnais mon titre n'est pas très explicite mais je vais tenter de vous expliquer :

On suppose que j'ai un TGroupBox, jusque la pas de soucis.
Dans ce GroupBox j'ai plusieurs Controls dont des Labels (TLabel).
Ce que j'aimerais c'est pouvoir accéder à la Caption de chacun de mes Labels assez facilement à l'aide de la méthode de mon GroupBox GroupBox.Controls[Index].

Sous forme de code ça donnerait ça mais forcément ça ne marche pas :

Code :

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

1
2
3
 
For Index := 0 To GroupBox.ControlCount-1 do
 (GroupBox.Controls[Index] as TLabel).Caption := IntToStr(Index) // Je vous l'accord ça n'a aucun intérêt comme ça mais c'est pour l'exemple

Le soucis je pense c'est que mon GroupBox ne contenant pas que des TLabel se retrouve à un moment ou un autre sur un composant qui n'est pa un TLabel => plantage forcé.
Je pense donc qu'avant de faire GroupBox.Controls[Index] as TLabel il faudrait s'assurer que GroupBox.Controls[Index] soit un TLabel ... mais je ne sais pas comment faire.


Quelqu'un aurait une piste ?
Merci de votre aide

[banban54]

bonsoir

ajoute un test:

Code :

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

1
2
3
 
if GroupBox.Controls[Index] is TLabel then
  GroupBox.Controls[Index] as TLabel....

[banban54]

ou alors essaie:

Code :

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

1
2
3
 
if GroupBox.Controls[Index] is TLabel then 
  Tlabel(GroupBox.Controls[Index]).caption := IntToStr(Index)

[Bleys]

Bonsoir,

bonsoir

ajoute un test:

Code :

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

1
2
3
 
if GroupBox.Controls[Index] is TLabel then
  GroupBox.Controls[Index] as TLabel....

Voila c'est le IS que je ne connaissais pas comme fonction ... J'essayais de faires des test mais je n'avais pas le bon mot ...


Merci beaucoup, je clos si ça fonctionne

Merci


[EDIT] : Effectivement ça marche, merci beaucoup