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 ?

zusammenfalten · markieren

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;

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

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