Gérer 20 Labels

Question

Bonjour,
Une question SVP : 
J&#8217;ai 20 Labels numérotés de 1 à 20. 
Par exemple, quand on clique sur le Label 1, la procedure ci-dessous de ce Label appelle la procedure Tableau1 et une variable prend la valeur 1.
Chaque procedure appelle la procedure Tableau1 et change une variable, le nombre indiqué entre parenthèses.
C&#8217;est très long.
Sous Delphi 6, comment faire plus court ? Comment gérer les 20 Labels au niveau de la Tform1.FormCreate ?
J&#8217;ai cherché sur différents forums. Aucune réponse.
----------------------------------------------------------------------
procedure TForm1.N1Click(Sender: TObject);
  begin
    Tableau1(1);
  end;
procedure TForm1.N2Click(Sender: TObject);
  begin
    Tableau1(2);
  end;
procedure TForm1.N3Click(Sender: TObject);
  begin
    Tableau1(3);
  end;
procedure TForm1.N4Click(Sender: TObject);
  begin
    Tableau1(4);
  end;
procedure TForm1.N5Click(Sender: TObject);
  begin
    Tableau1(5);
  end;
&#8230;etc&#8230;
-------------------------------------------------------------------------
Merci pour votre aide.
SGS

cs_MAURICIO · Answer

Salut, 

associe le même événement OnClick à tous les labels puis modifie la propriété tag de chaque label en passant l' indice du tableau. 

procedure TForm1.EvenementCommunClick(Sender: TObject);
var Indice: Integer; 
begin
Indice := TLabel(Sender).Tag; 
Tableau1(Indice);
end; 

A+

Composants Cindy pour Delphi
Faites une donation.

silvergoldsilver · Answer

Merci beaucoup.
Je vais essayer ça tout de suite (je ne connaissais pas la propriété tag !)
A+
SGS

cs_cantador · Answer

procedure TForm1.EvenementCommunClick(Sender: TObject);  
begin 
Tableau1(TLabel(Sender).Tag);
end; 

devrait fonctionner..

cantador

Gérer 20 Labels

3 réponses

Votre réponse

Discussions similaires