Hi DPler
im Augenblick verschiebe ich Einträge in der Listbox so:
Delphi-Quellcode:
procedure TfrmPlaylist.lsbPlaylistDragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean);
begin
if source is TListbox then accept:=true else accept:=false;
end;
procedure TfrmPlaylist.lsbPlaylistDragDrop(Sender, Source: TObject; X,
Y: Integer);
begin
lsbPlaylist.Items.Move(lsbPlaylist.ItemIndex,lsbPlaylist.ItemAtPos(point(x,y),true));
end;
Klappt soweit auch. Ich würde aber gerne beim Verschieben noch eine Art Vorschau haben (wie
im Anhang zu sehen, Mauszeiger einfach dazudenken ^^).