Danke
ich habe nu diesen code
Delphi-Quellcode:
procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
ListBox1.Items.Move(ListBox1.ItemIndex,ListBox1.ItemAtPos(point(x,y),true));
end;
procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if source is TListbox then accept:=true else accept:=false;
end;
Jetzt kann ich ein Ding nach oben ziehen.
Kann ich das auch noch anders machen also dass das was ich ziehe sofort mit der Maus nach oben wandert und nicht einfach nach oben springt (also so ähnlich wie in Winamp) ?