Comment récupérer le nom d'un composant à partir d'un sender?

bonjours

j'ai les composants listview1 et listview2 ; je veut savoir comment retourner le nom de chaqu'un a partir d'un objet "Sender:TObjet"
exp(

Code:

---

1 2 3 4 5 6 7

procedure ...(...;Sender:TObjet) begin   if Sender='listview1' then ... if Sender ='listview2' then...   end;

---

)
merci

tu peux le faire en testant directement les références

Code:

---

1 2	if Sender = listview1 then ... if Sender = listview2 then...

---

ou sinon

Code:

---

1 2	if (Sender is TComponent) and (TComponent(Sender).Name = listview1) then ... if (Sender is TComponent) and (TComponent(Sender).Name = listview2) then ...

---

salut

Code:

---

st := (Sender as TComponent).Name ;

---

shelltroll le name est un chaine de caractere pas une instance d'objet

@+ Phil

Bonjour,

Code:

---

1 2 3 4 5 6 7 8

begin If Sender.classtype.classname= TListview and TListview(sender).name = 'Listview1' do begin .... .... end; end;

---

Cordialement,
Hauwke

Citation:

---

Envoyé par anapurna

shelltroll le name est un chine de caractere pas une instance d'objet

---

Où as-tu vu que j'ai dit que Name était une instance d'objet ?

j'ai écrit

Code:

---

if Sender = listview1 then ...

---

je parlais bien de l'instance self.listview1 typique d'un composant posé sur une forme ... tu noteras l'absence de guillement ...
Il est clair que ce qu'il veut faire c'est tester le nom, pour faire un comportement différent pour chaque control qui utilise le même gestionnaire d'évènement, la récupération n'est qu'un moyen d'y parvenir ...

Citation:

---

Envoyé par Hauwke

Code:

---

1 2 3 4 5 6 7 8

begin If Sender.classtype.classname= TListview and TListview(sender).name = 'Listview1' do begin .... .... end; end;

---

---

Ce code est faux !

on peut écrire

Code:

---

Sender.ClassType = TListview

---

Code:

---

Sender.ClassType.ClassName = 'TListview'

---

Code:

---

Sender.ClassType.ClassName = TListview.ClassName

---

Code:

---

Sender.ClassName = 'TListview'

---

Code:

---

Sender.ClassName = TListview.ClassName

---

et sinon, mieux l'opérateur is qui est fait pour !

Code:

---

Sender is TListview

---

Citation:

---

Envoyé par ShaiLeTroll

tu peux le faire en testant directement les références
...

Code:

---

1 2	if (Sender is TComponent) and (TComponent(Sender).Name = listview1) then ... if (Sender is TComponent) and (TComponent(Sender).Name = listview2) then ...

---

---

regarde bien les ligne que tu as ecrit
ceci chez moi ce ne fonctionnera jamais

Code:

---

(TComponent(Sender).Name = listview2)

---

@+ Phil

Ah, oui, désolé, j'ai oublié les '

alors soit

Code:

---

1 2	if (Sender is TComponent) and (TComponent(Sender).Name = 'listview1') then ... if (Sender is TComponent) and (TComponent(Sender).Name = 'listview2') then ...

---

ou

Code:

---

1 2	if (Sender is TComponent) and (TComponent(Sender).Name = listview1.Name) then ... if (Sender is TComponent) and (TComponent(Sender).Name = listview2.Name) then ...

---

ou

Code:

---

1 2	if (Sender = listview1) then ... if (Sender = listview2) then ...

---