Listbox: bestimmte Items verschieben

[Nils_13]

Hi,

wie kann ich in einer ListBox einzelne Items verschieben (wie in einer Playlist) ?

[Die Muhkuh]

Sowas nennt sich Drag & Drop und sollte im Forum zu finden sein.

[Nils_13]

Mit Drag&Drop komm ich in einer einzigen Komponente nicht klar. Kann mir das jemand erklären ?

[Balu der Bär]

Ich hab hier mal 2 Funktionen geschrieben, da ein einfaches Verschieben eines Items ohne Drag & Drop darstellen:

Delphi-Quellcode:

function ItemUp(Steps: Integer; Box: TListbox) : Boolean;
begin
if Box.ItemIndex>0 then
  Box.Items.Exchange(Box.ItemIndex,Box.ItemIndex-Steps);
end;

function ItemDown(Steps: Integer; Box: TListbox) : Boolean;
begin
if (Box.ItemIndex<>-1) and (Box.ItemIndex<Box.Items.Count-1) then
  Box.Items.Exchange(Box.ItemIndex,Box.ItemIndex+Steps);
end;

Das zu verschiebende Item muss in der Listbox markiert sein, dann einfach die Funktionen aufrufen. Sollte eigentlich selbsterklärend sein.