Discussion :

[PDelph7]

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 Delphi :

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

1
2
3
4
5
6
7
procedure ...(...;Sender:TObjet)
begin
 
  if Sender='listview1' then ...
 if Sender ='listview2' then...
 
end;

)
merci

[ShaiLeTroll]

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

Code :

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

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

ou sinon

Code :

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

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

[anapurna]

salut

Code :

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

 st := (Sender as TComponent).Name ;

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

@+ Phil

[Hauwke]

Bonjour,

Code :

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

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

[ShaiLeTroll]

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 :

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

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 ...

Code :

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

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 :

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

Sender.ClassType = TListview

Code :

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

Sender.ClassType.ClassName = 'TListview'

Code :

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

Sender.ClassType.ClassName = TListview.ClassName

Code :

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

Sender.ClassName = 'TListview'

Code :

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

Sender.ClassName = TListview.ClassName

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

Code :

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

Sender is TListview

[anapurna]

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

Code :

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

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 :

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

(TComponent(Sender).Name = listview2)

@+ Phil

[ShaiLeTroll]

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

alors soit

Code :

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

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

ou

Code :

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

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 :

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

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