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

Version imprimable

03/05/2007, 11h26
Ardely

Ne pas entrer dans une procédure si Listview non sélectionné
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:

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.
03/05/2007, 12h42
ShaiLeTroll

Pourquoi tu ne teste pas que

Code:

if (ListView1.ItemIndex <> -1)

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

sinon, tu peux rajouter

Code:

(FocusControl = ListView1)
03/05/2007, 12h57
Ardely

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!
03/05/2007, 13h20
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
03/05/2007, 13h23
Pedro
Citation:

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:

1 2 3 if (ListView1.ItemIndex > -1) and (ListView1.Focused) then ...
03/05/2007, 19h47
Ardely

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.
03/05/2007, 22h49
Pedro

Citation:

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é ;)
03/05/2007, 23h14
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.
Je suis encore à chercher et à tester le pourquoi.
Merci pour l'encouragement et bonne soirée.
03/05/2007, 23h45
Pedro

Citation:

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 ;)

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:

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.

04/05/2007, 17h03
ShaiLeTroll

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 ...
07/05/2007, 15h33
DragonHeart

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?
08/05/2007, 13h41
Ardely

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

Code:

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

08/05/2007, 14h15
dvarrel

je ferais bien avant le test :

Code:

listview1click(self);

cela devrait remettre itemindex à -1, non ?
08/05/2007, 15h39
Ardely

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.
08/05/2007, 15h45
Okaryn

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:

listview1.itemindex := -1;

dans le OnEnter/OnClick/etc... ainsi dès qu'un controle prend le focus il va désélectionner ta liste.
09/05/2007, 13h30
DragonHeart
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:

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
09/05/2007, 22h46
Ardely

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.
10/05/2007, 13h50
DragonHeart

Oublie pas de cliquer sur :resolu: si cela fonctionne comme tu le désires ! ;)