• La procédure ListBox_DragOver est développée ici :
  • Elle dessine une ligne de 2 pixels sous l’item cliqué
  • Puis suit le mouvement de la souris jusqu’à l’item de destination
  • Je l’ai placée dans un Module dédié aux fonctions drag and drop, mais on peut l’inclure dans les procédures  de la fiche.
    • procedure Tform1.ListBox_DragOver

procedure ListBox_DragOver(ListBox: TListBox; Sender: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);

Var
NumItem: Integer;
Var
Rect: TRect;

Begin

If (Sender = ListBox) Then
Begin
Accept := True;
If (State = dsDragMove) Then
Begin

NumItem := ListBox.ItemAtPos(Point(X, Y), False); // Recupère l'element en XY

// Trace une ligne sous le drag souris
With ListBox.Canvas Do
Begin
Pen.Style := psDot;
Pen.Mode := pmNot;
Pen.Width := 2;

If Ligne_Afficher Then
Begin // Si la ligne est déjà affichée, on l'efface
Rect := ListBox.ItemRect(OldItem); // Trouve le Rect de l'ancien élément
MoveTo(Rect.Left, Rect.Top);
LineTo(Rect.Right, Rect.Top);
End;

Rect := ListBox.ItemRect(NumItem); // Trouve le Rect du nouvel élément
MoveTo(Rect.Left, Rect.Top);
LineTo(Rect.Right, Rect.Top);
OldItem := NumItem;
Ligne_Afficher := True;
End;
End;

If (State = dsDragLeave) Then // On sort de la ListBox1 avec le curseur
With ListBox.Canvas Do
Begin
Pen.Style := PSSOLID;
Pen.Mode := pmNot;
Pen.Width := 2;

If Ligne_Afficher Then
Begin // la ligne est affichée, on l'efface
Rect := ListBox.ItemRect(OldItem);
MoveTo(Rect.Left, Rect.Top);
LineTo(Rect.Right, Rect.Top);
End;
Ligne_Afficher := False;

End;
End;

End;

• Qui fait appel à la fonction GetLisbox_SourceCible

function GetLisbox_SourceCible(ListBox: TListBox; Sender: TObject; X, Y: Integer; var Item_SOURCE: string;
var Item_CIBLE: string): Boolean;
var
ITEM_A, ITEM_B: Integer;
Begin

Result := True;

ITEM_A := TListBox(Sender).itemIndex; // source
If ITEM_A = -1 then
Result := False
else
begin
Item_SOURCE := TListBox(Sender).Items[ITEM_A];

If (Sender = ListBox) Then
begin
ITEM_B := ListBox.ItemAtPos(Point(X, Y), False) - 1;
if ITEM_B = -1 then
Result := False
else
begin

Item_CIBLE := ListBox.Items[ITEM_B];
ListBox.MultiSelect := True; // si pas fait avant
ListBox.Selected[ITEM_A] := True;
ListBox.Selected[ITEM_B] := True;
end;
end;
end;

End;

1. Si l’item source est facile à argumenter puisqu’il s’agit de l’ITEM cliqué et pointé par ItemIndex
2. L’Item cible correspond au simple survol de la souris, et peut être pointé par l’instruction ListBox.ItemAtPos(Point(X, Y), False), Point(X,Y) désignant les cordonnées de la souris.