Ciao a tutti
Ho un problema con il drag & Drop dei TListBox: di default lui non fa nulla e così ho scritto io degli eventi nel "begin drag" e "end drag", il problema è che l'icona del mouse durante il dragging rimane col divieto ovunque sia, mentre se metto anche l'evento overdrag per gestire l'area corretta e non l'icona si aggiusta ma poi in realtà non mi dragga più nulla.
Questo è il codice in questione.

procedure TfrmRiordinaVariabili.lbVarStartDrag(Sender: TObject;
var DragObject: TDragObject);
begin
iOld:=lbVar.ItemIndex;
stItem:=lbVar.Items.Strings[iOld];
end;

procedure TfrmRiordinaVariabili.lbVarEndDrag(Sender, Target: TObject; X,
Y: Integer);
var
iVar: Integer;

begin
iNew:=lbVar.ItemIndex;
if iOld=iNew then
lbVar.Items.Strings[iNew]:=stItem
else if iOld>iNew then
begin
for iVar:=iOld-1 DownTo iNew do
lbVar.Items.Strings[iVar+1]:=lbVar.Items.Strings[iVar];
lbVar.Items.Strings[iNew]:=stItem;
end
else
begin
for iVar:=iOld+1 To iNew do
lbVar.Items.Strings[iVar-1]:=lbVar.Items.Strings[iVar];
lbVar.Items.Strings[iNew]:=stItem;
end;
end;