Przesuwanie itemów

da się użyc na listboxie przesówania itemów???

Jasne jesli o to biega o czym mysle to jesli jest duzo itemsow to wtedy automatycznie tworzy sie scroller

Jak co możesz włączać paski w dowolnym momenci :)

Ja jednak mysle ze jemu chodzi o cos innego :) No ze jak masz item pod itemem ze mozesz zlapac np ten wyzej przytrzymac i poscic w innym miejscu :) Cos takieog jak jest w winampie gdy przytrzymasz utowor i chcesz to przeniesc :) Ale to jest tylko moje zdanie

Ja jednak mysle ze jemu chodzi o cos innego :) No ze jak masz item pod itemem ze mozesz zlapac np ten wyzej przytrzymac i poscic w innym miejscu :) Cos takieog jak jest w winampie gdy przytrzymasz utowor i chcesz to przeniesc :) Ale to jest tylko moje zdanie

Jeśli tak to należy w
onDragDrop, OnDragOver i OnMouseMove wpisać te kody:

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
Var
index : integer;
APoint: TPoint;
begin
APoint.X := X;
APoint.Y := Y;
Index := TListBox(Sender).ItemAtPos(apoint, True);
IF Source.ClassType = TListBox Then
IF TListBox(Source).ItemIndex >= 0 Then
begin
TListBox(Sender).Items.Insert(index,TListBox(Source).Items[TListBox(Source).ItemIndex]);
IF Sender = Source Then TListBox(Source).Items.Delete(TListBox(Source).ItemIndex);
End ;
IF Source.ClassType = TCheckBox Then
TListBox(Sender).Items.Insert(index,TCheckBox(Source).caption);
end;

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssLeft in Shift then
TListBox(Sender).BeginDrag(FALSE);
end;

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := Sender = Source;
end;