Discussion :

[animalx123]

Bon, voilà ma problématique :
je crée des labels dynamiquement et un événement onclick et quand je clique sur l'un d'eux il y a une forme qui s'affiche,mais le problème c'est que je veux affecter le caption du label dans une variable pour la traiter après. Voici mon code :

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
 
xx:=85   ;
t:=0;
 
for  i:=1 to self.ADOTable1.RecordCount do
   begin
  with tlabel.Create(self)do
      begin
        parent:=self;
        caption:=self.ADOTable1.FieldValues['titre']  ;
        top:=xx;
        left:=32;
        onclick:=clicktitre ;
        tag:=  t;
      end;
     self.ADOTable1.Next;
     xx:=xx+10;
     t:=t+1;
    end;

et l'événement onclick :

Code :

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

1
2
3
4
procedure TForm5.clicktitre(sender:tobject);
  begin
    form4.showmodal;
  end;

[acaumes]

Bonjour,

As tu essayé

Code :

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

(sender as tlabel).caption

?

Cordialement

[animalx123]

effectivment ca marche ,
si vous voulez m'expliquer la fonctionaliter du code (le role du sender ) ou un lien pour en savoir plus
merci

[Andnotor]

Sender représente l'objet qui a généré l'événement. Voir TNotifyEvent.