Ne pas entrer dans une procédure si Listview non sélectionné

**Ardely** · 03/05/2007, 11h26

Bonjours à tous,

Voici mon petit problème, j'ai une form avec une listview et une listbox, si je sélectionne un élément dans ma listview et puis si je sélectionne mon button1 qui récupère cette sélection pour entrer dans une procédure, jusque la tout ok, Mais si je clique ensuite sur ma listbox (ou un autre élément), donc ainsi l'élément dans ma listview n'est plus sélectionner et puis si je pousse a nouveau sur mon button1 il entre comme même dans ma procédure même avec ses conditions.

Code :

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

1
2
3
4
5
6
7
8
 
 
if (ListView1.ItemIndex <> -1) and (ListView1.ItemFocused <> Nil )
      and (ListView1.Selected  <> Nil) and Assigned(ListView1.ItemFocused)  then
begin
Procedure XY
 
end;

Que dois-je ajouter si l'élément de ma listview n'est pas sélectionner de ne pas rentrer dans ma procédure si je pousse mon button1!

Merci pour l'aide.

**ShaiLeTroll** · 03/05/2007, 12h42

Pourquoi tu ne teste pas que

Code :

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

if (ListView1.ItemIndex <> -1)

Cela indique l'item selectionné, sans se préoccuper du focus ...

sinon, tu peux rajouter

Code :

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

(FocusControl = ListView1)

**Ardely** · 03/05/2007, 12h57

Ce que je ne comprend pas si un l'élement sélectionner, puis plus sélectionner (en cliquant autre par..) et puis si je pousse sur le button1, ListView1.ItemIndex garde l'ancienne valeur, donc ne devient pas à -1, la valeur change seulement si on selectionne une autre ligne dans la listview!

**Ardely** · 03/05/2007, 13h20

Je n'arrive pas à utiliser correctement le FocusControl (erreur: pas assez de paramètres) pourrait-tu s.t.p me donner une petit example. Merci

**Pedro** · 03/05/2007, 13h23

Envoyé par Ardely

Je n'arrive pas à utiliser correctement le FocusControl (erreur: pas assez de paramètres) pourrait-tu s.t.p me donner une petit example. Merci

Salut

Essaye aussi:

Code :

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

1
2
3
 
if (ListView1.ItemIndex > -1) and (ListView1.Focused) then
...

**Ardely** · 03/05/2007, 19h47

Je n'arrive pas encore à faire bloquer ma procedure en poussant le button1 si l'élement de ma ListView n'est plus sélectionner!
Comment savoir si un élément n'est plus sélectionner dans la listview si le focus est sur un autre composant.
Merci beaucoup pour vôtre aide, Salutations.

**Pedro** · 03/05/2007, 22h49

Envoyé par Ardely

Comment savoir si un élément n'est plus sélectionner dans la listview si le focus est sur un autre composant.

C'est exactement à ça que sert le code que je t'ai donné

**Ardely** · 03/05/2007, 23h14

Merci beaucoup pour ton idée, mais dans mon cas sa ne fonctionne pas!!
Je rentre toujours dans la condition même si l'élement n'est pas sélectionner.
Je suis encore à chercher et à tester le pourquoi.
Merci pour l'encouragement et bonne soirée.

**Pedro** · 03/05/2007, 23h45

Envoyé par Ardely

Merci beaucoup pour ton idée, mais dans mon cas sa ne fonctionne pas!!
Je rentre toujours dans la condition même si l'élement n'est pas sélectionner.

Pourrais-tu donner le code que tu as produit

**Ardely** · 04/05/2007, 10h44

Merci beaucoup Pedro pour l'aide que tu m'offre. Voici mon Code très simplifié pour mieux comprendre le fonctionnement. Voici l'ordre qui ne fonctionne pas.
Step 1 : clique une ligne, un élément dans Listview1.
Step 2 : clique dans le memo.
Step 3 : clique le button1 (devrais affiche 'Elément est PAS sélectionner') mais non, je rentre toujours dans la procédure 'Elément est sélectionner' qui n'est pas correcte!!

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    ListView1: TListView;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var
i : Integer;
begin
   i := 0;
   ListView1.ViewStyle := vsReport;
     for i := 1 to 20 do
     begin
     ListView1.Items.Add.Caption := inttostr(i);
     end;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
i,PosIndex : Integer;
 
//Item_Focused  : TListItem;
//Item_Selected : TListItem;
 
begin
 
  PosIndex := ListView1.ItemIndex;
 // Item_Focused :=  ListView1.ItemFocused;
 // Item_Selected := ListView1.Selected;
 
if (ListView1.ItemIndex > -1) and (ListView1.ItemFocused <> Nil )
      and (ListView1.Selected  <> Nil) and (Assigned(ListView1.ItemFocused))
      // and (ListView1.Focused)  {si active l'élement n'est jamais sélectionner}
       then
   begin
       Showmessage('Element est sélectionner');
  end else begin
       Showmessage('Element est PAS sélectionner');
  end;
 
end;
 
end.

Merci beaucoup pour une solution, et très bonne journée.

**ShaiLeTroll** · 04/05/2007, 17h03

Pour Info, Ardely, si tu clique sur le Bouton 'Button1', celui-ci devient le control qui a le focus, ainsi ListView1.Focused ou Self.ActiveControl, te renverront respectiement False et 'Button1' ... tu peux me faire ton contrôle de focus que dans un Timer ou dans un Event comme OnChange de la ListView ...

**DragonHeart** · 07/05/2007, 15h33

Si tu clic sur un élément de ta liste ItemIndex sera toujours > à -1 meme si tu clic sur un autre composant ...

En faite tu cherches a faire quoi? faire passé un Elément de ta listview vers une autres list?

**Ardely** · 08/05/2007, 13h41

Bonjours, a vrais dire c'est pour faire effacer un élément sélectionner par un bouton, mais si l'élément n'est pas sélectionner l'effacement ne dois pas être possible...Merci

**Okaryn** · 08/05/2007, 14h04

Code :

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

1
2
3
4
5
6
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if listview1.ItemIndex <> -1 then
    listview1.Items.Delete(listview1.ItemIndex);
end;

**dvarrel** · 08/05/2007, 14h15

je ferais bien avant le test :

Code :

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

listview1click(self);

cela devrait remettre itemindex à -1, non ?

**Ardely** · 08/05/2007, 15h39

Résumer des testes. Si la listview1 a été une fois sélectionner, listview1.ItemIndex prend une valeur, puis si on clique sur un autre outil expl. memo,(pendant cette manipe la listeview est désélectionner) puis si on active le button1 la listview à toujours une valeur > -1 et jamais -1 Donc pour moi je n'arrive pas à mettre la valeur a -1 si l' élement de la listeview n'est pas
sélectionner...! Salutations.

**Okaryn** · 08/05/2007, 15h45

Comme on te l'a expliqué plus haut, si tu remet ItemIndex à -1 lorsque ta liste n'a plus le focus, tu ne pourras JAMAIS supprimer un élément de ta liste car pour pouvoir cliquer sur le bouton il faut OBLIGATOIREMENT que la liste perde le focus.

Sinon, tu peux faire dans le lourd et mettre pour chaque controle (sauf ton bouton suppression) une ligne

Code :

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

listview1.itemindex := -1;

dans le OnEnter/OnClick/etc... ainsi dès qu'un controle prend le focus il va désélectionner ta liste.

**DragonHeart** · 09/05/2007, 13h30

Si j'ai bien compris tu veux sélectionné un Elément puis tu clic sur ton bouton afin d'exécuté une procédure ... alors pourquoi ne pas mettre ta ListView.ItemIndex := -1 a la fin de la procédure? et fait aussi comme teste lorsque tu clic sur le dit bouton

Code :

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

1
2
3
 
If ListView.ItemIndex <> -1
  Then MaProcedure;

de cette facon tu ne pourras pas executé deux fois desuite la procédure sans sélectionnez un autre élément de ta listview

**Ardely** · 09/05/2007, 22h46

Oui, Je pense que je vais prendre cette solution de mettre en fin de procedure
ListView.ItemIndex := -1. dans mon bouton multifonctions...Merci et bonne soirée.

**DragonHeart** · 10/05/2007, 13h50

Oublie pas de cliquer sur

si cela fonctionne comme tu le désires !

Ne pas entrer dans une procédure si Listview non sélectionné

Delphi

Discussions similaires

Partager

Partager