Discussion :

[PierreBord]

Merci de m'aider, car je netrouve pas la solution contenu de mes
connaissances.

Mon probléme:
j'effectue une recherche dans les captions ou subitems d'une LISTVIEW
je leur donne le focus selected dés que la recherche aboutie.
Mais je n'arrive pas à faire évoluer l'affichage automatiquement
m'obligeant à utiliser la barre de progression dés lors que la ligne
n'est pas comprise dans la page affichée.

[Cl@udius]

Salut,

Un petit coup de et regarde parmi les méthodes de TListItem celle intitulé MakeVisible.

@+ Claudius.

[PierreBord]

Merci j'ai fini par trouvé effectivement Makevisible ça marche

[davels]

Bonjour, j'ai le même problème!
J'ai 2 boutons, un pour faire monter et un pour faire descendre les item dans mon listview.
Quand j'ai fait le up ou le down, j'aimerais pouvoir le faire plusieurs fois d'affilées, malheureusement après le premier click, le listview (et l'item) perd le focus.

Voici le code que j'utilise pour rendre le focus mais cela ne fonctionne pas :

Code :

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

1
2
3
4
5
 
    LstVwSelectCriteria.SetFocus;
    LstVwSelectCriteria.Selected := LstVwExistingCriteria.Items[ReturnIndex];
    LstVwSelectCriteria.Items[ReturnIndex].MakeVisible(True);
    LstVwSelectCriteria.Items[ReturnIndex].Focused := True;

Si quelqu'un à une idée, je suis preneur

[Cl@udius]

Salut,

Utilise des TSpeedButton plutôt que des TButton, car les TSpeedButton ne conservent pas le focus après un clic.

Ce qui devrait résoudre ton problème.

@+ Claudius.

[davels]

Il s'agit justement de TSpeedButton

[Cl@udius]

Salut,

je viens d'essayé ce petit bout de code et cela fonctionnement correctement.

Le TListView est en vsReport comme supposé depuis le début de la conversation.

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
 
procedure TForm1.SpeedButtonUpClick(Sender: TObject);
begin
  with ListView1 do begin
    if ItemIndex > 0 then begin
      ItemIndex := ItemIndex - 1;
      Items[ItemIndex].Focused := True;
      Items[ItemIndex].MakeVisible(False);
    end;
  end;
end;
 
procedure TForm1.SpeedButtonDownClick(Sender: TObject);
begin
  with ListView1 do begin
    if ItemIndex < Items.Count - 1 then begin
      ItemIndex := ItemIndex + 1;
      Items[ItemIndex].Focused := True;
      Items[ItemIndex].MakeVisible(False);
    end;
  end;
end;

Teste ce code et tiens nous au courant,
@+ Claudius

[davels]

Très bizarrement, ca a fonctionné à moitié mais ... ca ne fonctionne plus!
Je n'ai pourtant rien changé qui me semble vital

Voici mon code :

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
 
procedure TFrmColis.BtnCritDownClick(Sender: TObject);
var
  oList : Variant;
  ReturnIndex : Integer;  
begin
  if LstVwSelectCriteria.Selected = nil then Exit;
  ReturnIndex := MoveCrit('DOWN');
  if (ReturnIndex = 0) or (ReturnIndex = StrToInt(LstVwSelectCriteria.Selected.SubItems.Strings[5])) then
  else
  begin
    oList := oRoot.GetListCrit;
    FillSelectCriteria(oList);
    LstVwSelectCriteria.Items[ReturnIndex].Focused := True;
    LstVwSelectCriteria.Items[ReturnIndex].MakeVisible(False);
    CompObj.RootUpdated;
    GetError;
  end;
end;
 
procedure TFrmColis.BtnCritUpClick(Sender: TObject);
var
  oList : Variant;
  ReturnIndex : Integer;
begin
  if LstVwSelectCriteria.Selected = nil then Exit;
  ReturnIndex := MoveCrit('UP');
  if (ReturnIndex = 0) or (ReturnIndex = StrToInt(LstVwSelectCriteria.Selected.SubItems.Strings[5])) then
  else
  begin
    oList := oRoot.GetListCrit;
    FillSelectCriteria(oList);
    LstVwSelectCriteria.Items[ReturnIndex].Focused := True;
    LstVwSelectCriteria.Items[ReturnIndex].MakeVisible(False);
    CompObj.RootUpdated;
    GetError;
  end;
end;

La Variant est une interaction avec le server Caché d'Intersystem

[davels]

En persévérant un peu, ca fonctionne parfaitement maintenant

Il fallait rajouter

Code :

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

1
2
 
LstVwSelectCriteria.Items[ReturnIndex].Selected := True;

ce qui nous donnes le code suivant :

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
procedure TFrmColis.BtnCritDownClick(Sender: TObject);
var
  oList : Variant;
  ReturnIndex : Integer;  
begin
  if LstVwSelectCriteria.Selected = nil then Exit;
  ReturnIndex := MoveCrit('DOWN');
  if (ReturnIndex = 0) or (ReturnIndex = StrToInt(LstVwSelectCriteria.Selected.SubItems.Strings[5])) then
  else
  begin
    oList := oRoot.GetListCrit;
    FillSelectCriteria(oList);
    LstVwSelectCriteria.Items[ReturnIndex].Focused := True;
   LstVwSelectCriteria.Items[ReturnIndex].Selected := True;
    LstVwSelectCriteria.Items[ReturnIndex].MakeVisible(False);
    CompObj.RootUpdated;
    GetError;
  end;
end;
procedure TFrmColis.BtnCritUpClick(Sender: TObject);
var
  oList : Variant;
  ReturnIndex : Integer;
begin
  if LstVwSelectCriteria.Selected = nil then Exit;
  ReturnIndex := MoveCrit('UP');
  if (ReturnIndex = 0) or (ReturnIndex = StrToInt(LstVwSelectCriteria.Selected.SubItems.Strings[5])) then
  else
  begin
    oList := oRoot.GetListCrit;
    FillSelectCriteria(oList);
    LstVwSelectCriteria.Items[ReturnIndex].Focused := True;
   LstVwSelectCriteria.Items[ReturnIndex].Selected := True;    
    LstVwSelectCriteria.Items[ReturnIndex].MakeVisible(False);
    CompObj.RootUpdated;
    GetError;
  end;
end;

Merci pour votre aide