Einträge in ListBox verschieben (Drag&Drop)

[Tpercon]

Wie kann man die Einträge in der ListBox Komponente untereinander verschieben?

[Luckie]

Keine Ahnung, ob der Code was taugt. hab eich aus meiner Code-Schnipsel-Sammlung:

Code:

OnMouseDown:
if Button = mbLeft then
begin
  // Starten des Drag'n'Drop-Vorgangs der playlisteinträge
  if Playlist.ItemAtPos(Point(x, y), True) > -1 then
  begin
    Playlist.BeginDrag(False);
  end;
end;

OnDragOver:
begin
  NewItemIndex := Playlist.TopIndex + (Y div Playlist.ItemHeight);
  if NewItemIndex > Playlist.Items.Count -1 then
    NewItemIndex := Playlist.Items.Count -1;
  Playlist.Items.Move(Playlist.ItemIndex, NewItemIndex);
  Playlist.ItemIndex := NewItemIndex;
  Hauptfenster.Filelist.Items.Move(Playlist.ItemIndex, NewItemIndex);
  Hauptfenster.Filelist.ItemIndex := NewItemIndex;
  Accept := True;
end;

by Daniel B; Form.

[Alfons_G]

:hi:
schau Dir mal diesen Code an:
Ich hatte bei diesem Projekt statt der normalen ListBox die LMDListBox aus den LMD-Tools verwendet, die Vorgehensweise ist jedoch dieselbe.

Code:

procedure TMainForm.LMDListBox1DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
  if Source is TLMDListBox then
    Accept := true;
end;

procedure TMainForm.LMDListBox1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
var
  i: integer;
begin
  i := LMDListBox1.ItemAtPos (Point(x,y),true);
  if i > -1 then
    begin
    LMDListBox1.Items.Move (Zeile ,i);
  end;
end;

procedure TMainForm.LMDListBox1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  LPos: integer;
begin
  LPos := LMDListBox1.ItemAtPos (Point(x,y),true) ;
  if LPos > -1 then
  begin
    try
      Zeile := LPos;
      LMDListBox1.BeginDrag (false);
      // sonstwas machen ...
    except
      // oder auch nicht...
    end;
  end;
end;

:coder:

by Daniel B; Form.

[toms]

Hi,

Hier findest du auch noch ein Beispiel (mit Autoscroll Funktion)

http://www.swissdelphicenter.ch/de/showcode.php?id=200


tom

[Tpercon]

Hi

Danke euch. Ich hab die Version von Alfons G genommen.

Gruß