[AV] Listbox: Drag&Drop

[Nils_13]

Hi,

ich habe eine Listbox namens lbKat mit DragMode auf dmAutomatic. Wenn ich einen Eintrag in der Listbox verschiebe bekomme ich eine Zugriffsverletzung. Habt ihr eien Idee warum ?

Delphi-Quellcode:

  private
    { Private-Deklarationen }
    StartingPoint : TPoint;

...

procedure TfrmSettings.lbKatStartDrag(Sender: TObject; var DragObject: TDragObject);
var CurPos : TPoint;
begin
  if (GetCursorPos(CurPos)) then
  begin
    StartingPoint.X := CurPos.X;
    StartingPoint.Y := CurPos.Y;
  end;
end;

procedure TfrmSettings.lbKatDragDrop(Sender, Source: TObject; X, Y: Integer);
var DropPoint                   : TPoint;
    DropPosition, StartPosition : Integer;
begin
  DropPoint.X := X;
  DropPoint.Y := Y;
  with Source as TListBox do
  begin
    StartPosition := ItemAtPos(StartingPoint, True);
    DropPosition  := ItemAtPos(DropPoint, True);

    lbKat.Items.Move(StartPosition, DropPosition);
  end;
end;

[Matze]

Hallo Nils,

ohne deinen Source groß angeguckt zu haben könnte dich diese längere Version vielleicht interessieren. Da werden auch keine globalen Variablen genutzt.

Grüße

[Nils_13]

Danke, so ist er zwar länger aber auch schöner :)