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;