Discussion :

[Bouguennec]

Bonjour je voudrais que le clique droit de ma souris fasse la même action que le gauche c'est à dire sélectionne l'objet avant d'ouvrir le popmenu.
Parce que jusque là je selectionne un objet et ensuite qu'importe où je clique sur la listbox ça ouvre le popmenu relatif à l'objet sélectionné qui n'est plus du tout sous la souris.

Merci

[Jipété]

Yop !

J'utilise avec bonheur OnMouseDown, mais dans une ListView : ça sera p'têt' pas pareil avec une ListBox. Enfin, à toi de voir...
Mes 2 cts,
--
jp

[Bouguennec]

Je n'ai pas trouvé de solution avec OnMouseDown, si tu peux développer le fond de ta pensée ça m'aiderait je pense.
Merci

[Jipété]

Voilà ce que j'utilise pour afficher un menu contextuel dans une ListView qui contient des fichiers et dossiers. Je te le mets pour le mécanisme, mais attention à ne pas copier/coller car il va te falloir une tripotée de points .Pas pour faire tourner ça, plus pas mal d'heures de gamberge, une boîte d'aspirine et du café !

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
procedure TMainForm.lvFilesAnalyzeMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);       // Pour le clic-droit only
var                // et pas MouseUp !
  ContextMenu: TShellContextMenu;
  RootPIDL,
  ID: PItemIDList;
begin
  if not (Button = mbRight) then exit;
  ID := ShellItem(lvFilesAnalyze.Selected.Index).ID;
  RootPIDL := ConcatPIDLs(FPIDL, ID);
  ContextMenu := TShellContextMenu.Create(Self, Self.Handle);
  if ContextMenu.Init(GetDisplayName(FIDesktopFolder, RootPIDL, True)) then
    ContextMenu.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
  if Assigned(ContextMenu) then ContextMenu.Free;
end;

HTH,
--
jp

[gbegreg]

Le composant TTreeView dispose d'une propriété dans l'inspecteur d'objet qui se nomme RightClickSelect qu'il faut positionner à True pour que le clic droit sélectionne l'item.

N'y a t'il pas cette propriété pour les TListBox ? (Je n'ai pas Delphi sous la main pour vérifier..)

[birdyz]

Ceci fonctionne

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
 
procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  Point : TPoint;
  ItemID : integer;
begin
  if Button = mbRight then
  begin
    Point.X := X;
    Point.Y := Y;
    ItemID := ListBox1.ItemAtPos(Point, True);
    if ItemID <> -1 then
      ListBox1.Selected[ItemID] := True;
  end;
end;

Après, si tu est en MultiSelect, je pense qu'il faut adapter (pas testé)

Birdyz

[Bouguennec]

Merci ça fonctionne mais j'ai dû remplacer

Code :

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

ListBox1.Selected[ItemID] := True;

par

Code :

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

ListBox1.ItemIndex:=ItemID

pour mon application

Encore Merci

[Bouguennec]

Pour ceux que ça intéresse voici le code final qui permet d'ouvrir un popupmenu qui gère l'objet cliqué

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
procedure TForm1.ListBox2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var Point : TPoint;
ItemID : integer;
begin
if Button = mbRight then begin
Point.X := X;
Point.Y := Y;
ItemID := ListBox2.ItemAtPos(Point, True);
if (ItemID<>-1) then begin
ListBox2.ItemIndex:=ItemID;
ListBox2Click(Sender);
Envoyerversuneautrebasededonne1.Caption:='Envoyer '+suppr+' dans une autre base de donnée...';
popupmenu2.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);
end;
end;
end;

suppr étant une string en variable globale

Avec dans ListBox2Click

Code :

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

1
2
i:=Listbox2.ItemIndex;
suppr:=ListBox2.Items.Strings[i];

Voilà