listview - violation d'acces [Résolu]

[gaby277]

Bonjour,
J’ai un problème de violation d’accès avec une listview. J’ai une solution mais j’aimerai comprendre (et apprendre - turbo Delphi – XP SP3).

Je remplis une listeview avec le nom et le label des lecteurs de CD/DVD disponibles.
Quand l’utilisateur sélectionne un lecteur, son nom est recopié dans un tedit avec le code suivant sur OnSelectItem

Code :

1
2
3
4
5
procedure TFormMajcd.ListViewLecteursSelectItem(Sender: TObject;
  Item: TListItem; Selected: Boolean);
begin
   FormMajcd.EditLecteurSelectionne.Text := FormMajcd.ListViewLecteurs.Selected.Caption 
end;

ça marche la première fois, mais si on clique ensuite sur un autre lecteur dans la listeview il y a une violation d’accès.

Par contre si la même ligne de code est dans l’événement onClick ça marche parfaitement. A chaque fois qu’un lecteur est sélectionné dans la listeview il s’affiche dans le tedit.

Code :

Code :

1
2
3
4
procedure TFormMajcd.ListViewLecteursClick(Sender: TObject);
begin
 FormMajcd.EditLecteurSelectionne.Text := FormMajcd.ListViewLecteurs.Selected.Caption ;
end;

Pourriez vous m’expliquer pourquoi.

[Cl@udius]

Salut

Lors de la sélection d'un élément de la liste, l'événement OnSelectItem est au plus déclencher 2 fois.
La première fois pour l'élément qui perd la sélection et l'autre pour l'élément qui l'obtient.

Personnellement j'implémente comme ceci:

Code :

1
2
3
4
5
6
7
8
9
10
11
procedure TFormMain.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  if Assigned(Item) then
  begin
    if Selected then
      // Elément obtenant la sélection
    else
      // Elément perdant la sélection 
  end;
end;

Avec:

• Sender: le TListView concerné
• Item: l'élément concerné
• Selected: Etat de sélection de l'élément

@+ Claudius.

[gaby277]

Bonsoir,
ça marche ! merci.
J'ignorais qu'il y avait également un évenement pour l'item désélectionné.