Discussion :

[Ardely]

Bonjour,

Je n'arrive pas a sélectionné plusieurs lignes dans une listbox comme avec
(ctrl-touche souris gauche)
voici ce que j'ai essayé mais qui ne fonctionne pas..

Code :

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

1
2
3
4
5
6
7
 
 
procedure TForm1.linstbox1DblClick(Sender: Tobject);
begin
  linstbox1.MultiSelect := true;
  linstbox1.Selected[linstbox1.ItemIndex] := true ;
end;

j'ai constaté, après chaque clique la sélection se désélectionne
que pouvez-vous me conseillé, Merci

[NABIL74]

bonjour,
Tu peux le faire comme ça:

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.ListBox1DblClick(Sender: TObject);
var
i: integer;
begin
listbox1.MultiSelect := true;
for i := 0 to ListBox1.Items.Count-1 do begin
 ListBox1.Selected[i]  ;
end;
end;

et dans le "On create" de ta fiche, ajoute:

Code :

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

1
2
3
4
procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox1DblClick(Sender)
end;

NABIL74

[Ardely]

Merci pour ton conseil mais ta proposition ne fonctionne pas pour mes besoins..
je ne sais pas s'il faut passer par une boucle et répéter a chaque fois la procédure.
Je suis en train de chercher quelque chose sur Mouse_Event et Keybd_Event peut-être dans cette direction?

[Rayek]

Je ne comprend pas pourquoi tu utilises l'évènement DblClick de la listbox.
Si tu mets la propriété Multiselect à True directement dans ton composant. Cela fonctionne normalement.

[Ardely]

Oui c'est juste, en postant j'ai fait une faute de copy-paste à vrais dire je l'ai mis dans OnClick,sorry.

Code :

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

1
2
3
4
5
6
 
procedure TForm1.Listbox1Click(Sender: TObject);
begin
  linstbox1.MultiSelect := true;
  instbox1.Selected[linstbox1.ItemIndex] := true ;
end;

Tu me dis de le mettre directement dans ton composant. Je ne vois pas ce que tu veux dire! Peux-tu me guider avec un petit exemple, merci beaucoup.

[Cl@udius]

Salut
Ce que veux dire Rayek, c'est que la multi-sélection est nativement gérée par le composant. La seule chose que tu aies à faire est de basculer la propriété MultiSelect à true dans l'inspecteur d'objet.

Rien d'autre à faire. Aucune implémentation supplémentaire n'est nécessaire.

@+ Claudius

[Charly910]

Bonjour,

ou bien dans le create de ta fiche tu mets :

Code :

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

   linstbox1.MultiSelect := true;

si tu ne veux pas le faire dans l'inspecteur d'objet.

A ce propos, je ne sais pas ce qui est le mieux ? (plus rapide, plus correct en programmation ?). C'est peut être plus lisible dans le code pour la maintenance.

A+

Charly

[Ardely]

oui, je l'ai bien mis à True le MultiSelect dans l'inspecteur d'objet. Mais quand je clique sur un autre ItemIndex, l’ancienne sélection se désélectionne a chaque fois, je ne sais pas encore pourquoi...

[Cl@udius]

Mais quand je clique sur un autre ItemIndex, ...

Shift+Click ou Ctrl+click, pour les sélections multiples.

[Ardely]

Avec Ctrl+click, pour les sélections multiples sa fonctionne. Le but c'est de ne pas insert avec la touche Ctrl-click, y a -t-il peux-être un autre moyen..

[Cl@udius]

Bonjour,
Je n'arrive pas a sélectionné plusieurs lignes dans une listbox comme avec
(ctrl-touche souris gauche)

Avec Ctrl+click, pour les sélections multiples sa fonctionne. Le but c'est de ne pas insert avec la touche Ctrl-click, y a -t-il peux-être un autre moyen..

je ne saisis plus ton besoin ???

[Ardely]

Désoler si je me suis mal exprimer*!
Je voudrais bien uniquement sélectionner des lignes dans la listebox uniquement par un clique de souris sans passer par la touche CTRL-Click. Merci

[Rayek]

Utilise alors la Checklistbox

[Ardely]

Merci pour ton conseil, mais c'est plutôt des lignes que je voudrai sectionner.

[Ardely]

Bonjours,
Voici ce que j'ai fait, j'arrive à sélectionner les lignes mais la touche control reste toujours enfoncer et je ne sais pas ou la désactiver sans désactiver toutes les autres lignes!

Code :

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

1
2
3
4
5
 
procedure TForm1.Listbox1Click(Sender: TObject);
begin
    Keybd_Event(VK_CONTROL,0,0,0);
end;

Si mes Keybd_Event(VK_CONTROL,0,KEYEVENTF_KEYUP,0); expl. dans MouseUp toute les lignes de la listbox ce déselecte.

Code :

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

1
2
3
4
5
6
 
procedure TForm1.Listbox1MouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
     Keybd_Event(VK_CONTROL,0,KEYEVENTF_KEYUP,0);
end;

Que pouvez-vous me proposez pour atteindre cette possibilité.
Merci beaucoup

Salutation

[Rayek]

Ou alors tu crées un tableau de booléen en mémoire qui correspond au même nombre d'item de ta listbox.
Sur chaque click sur une ligne de la liste box tu mets vrai ou faux dans le booléen correspondant, puis tu fais en sorte que lors que ta listbox se redessine elle vérifie le tableau et se mets en sélectionné ou pas

[Ardely]

Bonjour,
OK,Merci pour ta proposition, tu me dit: «..lors que ta listbox se redessine..» donc à chaque clique de souris je fais passer tous mes Items de ma listbox par une boucle, mais si j'ai plus de 40.000 items, est-ce assez rapide? Merci

[Andnotor]

Mets les Keybd_Event dans OnMouseEnter, OnMouseLeave du ListBox.

[Ardely]

Je viens de tester ta proposition qui fonctionne très bien. J'avais passé plongement sur cette difficulté, n'y croyant plus vraiment.. Merci beaucoup à vous tous.

[Rayek]

Bonjour,
OK,Merci pour ta proposition, tu me dit: «..lors que ta listbox se redessine..» donc à chaque clique de souris je fais passer tous mes Items de ma listbox par une boucle, mais si j'ai plus de 40.000 items, est-ce assez rapide? Merci

40 000 items dans une listbox

Pour le redessine, il y a un évènement prévu à cet effet qui ne redessine que ce qui est visible à l'écran.

Code :

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

1
2
3
4
5
6
 
procedure Tfrm_MSSMain.Lbx_DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
 
end;

Avec Index qui correspond à l'item en cours.

Après le système avec les KeyBd_Event le problème c'est que si tu vas vite ou que tu fait un alt+Tab pour switcher vers une autre application le Ctrl reste dans l'état appuyé. Et que ce passe-t-il lorsque ton curseur est sur la listbox et que tu appuies sur CTRL et le relache ?