ItemAtPos(Pos: TPoint; Existing: Boolean): Integer;

Description
En lui donnant une position Pos (qui peut être celle du curseur de souris par exemple), cette méthode renvoie le numéro de l'item se trouvant a cette position si il y en a un.

Si aucun Item n'est trouvé a cette position et que:
Existing:=True alors ItemAtPos renvoie la valeur -1.
Existing:=False alors ItemAtPos renvoie l'index du dernier Item de la Listbox 1.

Exemple:

procedure TMainForm.ListBox1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
var
  NumIndex: integer;
begin
  NumIndex := ListBox1.ItemAtPos(MousePos,False);
  Listbox1.ItemIndex:=NumIndex;
end;