Drag&Drop: Startpos immer = Droppos

[Nils_13]

Hi,

die Startposition ist immer gleich der Dropposition bei einem Drag&Drop in einer Listbox.
Warum ? Das darf nämlich nicht sein....

Delphi-Quellcode:

procedure TfrmMain.lbListDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := Source = lbList;
end;

procedure TfrmMain.lbListDragDrop(Sender, Source: TObject; X, Y: Integer);
var DropPosition     : Integer;
    StartPosition    : Integer;
    i                : Integer;
    DropPoint        : TPoint;
    temp             : TAudioFile;
begin
  DropPoint.X := X;
  DropPoint.Y := Y;
  with Source as TListBox do
  begin
    StartPosition := ItemAtPos(StartingPoint,True);
    DropPosition := ItemAtPos(DropPoint,True);
    temp := fFiles[startposition];
    for i := startposition downto dropposition + 1 do
    begin
      fFiles[i] := fFiles[i-1];
    end;

    for i := startposition to dropposition - 1 do
    begin
      fFiles[i] := fFiles[i+1];
    end;
    fFiles[dropposition] := temp;
    UpdateListBox;
  end;
end;

[bttb930]

was ist denn StartingPoint

[Nils_13]

Ganz vergessen:

Delphi-Quellcode:

StartingPoint : TPoint;
und im MouseDown der Listbox:
  StartingPoint.X := X;
  StartingPoint.Y := Y;

[bttb930]

Zitat von Nils_13:

:oops: Ganz vergessen:

Delphi-Quellcode:

StartingPoint : TPoint;
und im MouseDown der Listbox:
  StartingPoint.X := X;
  StartingPoint.Y := Y;

okay, das gehört nicht ins mousedown sondern ins startdrag

[Nils_13]

Und was soll ich dann für X und Y einsetzen ? Das gibt es bei StartDrag nicht.

[ste_ett]

Zitat von Nils_13:

Und was soll ich dann für X und Y einsetzen ? Das gibt es bei StartDrag nicht.

Delphi-Quellcode:

var
  CurPos: TPoint;


  if (GetCursorPos(CurPos)) then
  begin
     := CurPos.X;
  end;

[xaromz]

Hallo,

bekommst Du den Index des Items nicht über die ItemIndex-Eigenschaft der Listbox?

Gruß
xaromz

[Nils_13]

Ok, über ItemIndex ist StartPos korrekt, aber wieso ist DropPos immer noch = StartPos ?

[xaromz]

Hallo,

Zitat von Nils_13:

Ok, über ItemIndex ist StartPos korrekt, aber wieso ist DropPos immer noch = StartPos ?

sind X und Y Clientkoordinaten oder Screenkoordinaten (hab gerade kein Delphi zur Hand)?

Gruß
xaromz

[Nils_13]

lbListDragDrop(Sender, Source: TObject; X, Y: Integer); Ich denke es bezieht sich auf die Listbox.