Drag&Drop ListBox

[nXs]

Ребята, как сделать чтобы по DblClick не вызывалось событие Drag&Drop?

[Stilet]

Поставить DragMode в dmManual
А в OnMouseDown вызвать BeginDrag(true,50);
т.е. таскать будет если ты проведешь в радиусе 50 пикселей после нажатия клавиши. этого вполне хватит чтоб не мешалось с обычными кликами

[nXs]

То же самое, правда после перемещения мыши. Вот код:

procedure TForm1.PlayListDragDrop(Sender, Source: TObject; X, Y: Integer);
var
APoint: TPoint;
Index, Sindex, i: integer;
Sstring, pstring: string;
begin
if (Sender is TsListBox) and (Source is TsListBox) then
  begin
  APoint.X := X;
  APoint.Y := Y;
  with Sender as TsListBox do
    begin
    Index := ItemAtPos(APoint, True);
    sindex:= ItemIndex;
    end;
  if (Index <> -1)and(sindex <> -1) then
    with Sender as TsListBox do
    begin
    sstring:=Items.Strings[sindex];
    Items.Delete(sindex);
    Items.Insert(index,sstring);
    ItemIndex:=index;
    Selected[index]:=true;

    pstring:=DirtaBle.Items[sindex];
    if index < sindex then
     for i:=sindex downto index+1 do
       DirtaBle.Items[i]:=DirtaBle.Items[i-1];
    if index > sindex then
     for i:=sindex to index-1 do
       DirtaBle.Items[i]:=DirtaBle.Items[i+1];
    DirtaBle.Items[index]:=pstring;
    end;
  end;
end;


procedure TForm1.PlayListDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
Accept := Source is TsListBox;
end;

procedure TForm1.PlayListMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  APoint: TPoint;
  Index,i: integer;
begin
  APoint.X := X;
  APoint.Y := Y;
  if (Button = mbLeft)and not(ssCtrl in Shift) then
  if PlayList.ItemAtPos(APoint, True) <> -1 then
  PlayList.BeginDrag(false);

  if Button = mbRight then
    begin
    Index := PlayList.ItemAtPos(APoint, True);
    PlayList.ItemIndex:=index;

    if index <> -1 then
    if not PlayList.Selected[index] then
      begin
      PlayListMouseDown(Self, mbLeft, [], X, Y);
      PlayList.EndDrag(false);
      end;

      if index = -1 then
      begin
      N20.Enabled:=false;
      N22.Enabled:=false;
      N23.Enabled:=false;
      N66.Enabled:=false;
      N67.Enabled:=false;
      N61.Enabled:=false;
      end else
      begin
      N20.Enabled:=true;
      N22.Enabled:=true;
      N23.Enabled:=true;
      N66.Enabled:=true;
      N67.Enabled:=true;
      N61.Enabled:=true;
      end;
    end;

end;

procedure TForm1.PlayListDblClick(Sender: TObject);
begin
NowPlay:=DirTable.ItemIndex;
Form1.Playing_File:=DirTable.Items[NowPlay];
CasePlayType(Form1.Playing_File);
if (LowerCase(ExtractFileExt(Playing_File))='.mp3')  or
   (LowerCase(ExtractFileExt(Playing_File))='.wav')  or
   (LowerCase(ExtractFileExt(Playing_File))='.aac')  then
begin
Form2.Close;
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, nil, 0);
end else
begin
VideoVindowSH:=true;
Form2.Show;
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, nil, 0);
end;
PlayList.Repaint;
end;