Discussion :

[phobik]

Bonjour,

J'ai un problème que j'ai simplifié dans cet exemple :
j'ai une variable integer (V_compteur) qui peut avoir comme valeur 1,2 ou 3
j'ai trois labels : Label1, Label2, Label3
J'ai un bouton Button1
Lorsque je presse ce bouton, je souhaite que l'un des labels affiche en caption "coucou". Le choix du label qui affiche "coucou" doit être déterminé par la valeur de V_compteur

j'aurais donc la procédure

Code :

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

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:='coucou';  ou   Label2.Caption:='coucou';   ou   Label3.Caption:='coucou';
end;

C'est comme si je voulais que la procédure contienne la chaîne :

Code :

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

'Label'+IntToStr(V_compteur)+'.Caption:=''coucou'''

Je cale...

Merci d'avance

[Jipété]

Je cale...

Merci d'avance

Rhôôô

Code :

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

1
2
3
4
5
  case V_compteur of
    0: label1.Caption := 'coucou';
    1: label2.Caption := 'coucou';
    2: label3.Caption := 'coucou';
  end;

ou mieux

Code :

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

1
2
3
4
5
  case V_compteur of
    0: begin label1.Caption := 'coucou'; label2.Caption := ''; label3.Caption := ''; end;
    1: begin label1.Caption := ''; label2.Caption := 'coucou'; label3.Caption := ''; end;
    2: begin label1.Caption := ''; label2.Caption := ''; label3.Caption := 'coucou'; end;
  end;

[phobik]

Merci

je cherchais sans doute à me compliquer la vie

Bonne journée

[Paul TOTH]

voir aussi

Code :

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

FindComponent('Label' + IntToStr(V_compter + 1)) as TLabel

ou encore dans le OnCreate de la fiche

Code :

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

1
2
3
4
5
 
// avec Labels: array[0..2] of TLabel;
  Labels[0] := Label1;
  Labels[1] := Label2;
  Labels[2] := Label3;