Przesuwanie elementów listbox-a

Rejestracja:ponad 21 lat
Ostatnio:ponad 12 lat
Postów:501

Mam pytanie - jak można (możliwie bez dodatkowych komponentów) przesunąć myszką elementy listboxa (Aha, chodzi o to, zeby przesunąć juz po włączeniu programu ;-) )

Juhas

2004-09-09 13:43

Juhas2004-09-09 13:43

Rejestracja:około 22 lata
Ostatnio:3 miesiące
Postów:5042

Mam pytanie - jak można (możliwie bez dodatkowych komponentów) przesunąć myszką elementy listboxa (Aha, chodzi o to, zeby przesunąć juz po włączeniu programu ;-) )

Odsyłam do FAQ - drag&drop

wasyl

2004-09-09 15:06

wasyl2004-09-09 15:06

Rejestracja:ponad 21 lat
Ostatnio:ponad 12 lat
Postów:501

Kurna, zrobilem cos takiego:

Kopiuj

Var
itemText: String;
begin
  ItemText:= ColorsListBox.Items.Strings[DraggedItemIndex];
  If ColorsListBox.ItemAtPos(Point(X, Y), True) = ColorslistBox.Count -1 then
    Begin
      ColorsListBox.Items.Insert(ColorsListBox.ItemAtPos(Point(X, Y), True), ItemText);
      ColorsListBox.Items.Delete(DraggedItemIndex);      
      Exit;
    End;
  ColorsListBox.Items.Insert(ColorsListBox.ItemAtPos(Point(X, Y), True)+1, ItemText);
  ColorsListBox.Items.Delete(DraggedItemIndex);

Ale mi sie sypie jak probuje przeniesc itema na koniec listy :/
(DraggedItemIndex to index przeciaganego itemu...)
Nie moge znalezc tego bledu :/

nav

2004-09-09 15:10

nav2004-09-09 15:10

Rejestracja:ponad 21 lat
Ostatnio:ponad 2 lata
Lokalizacja:Warszawa

moze add zamiast instert w przypadku gdy leci na koniec??

wesoledi

2004-09-09 15:16

wesoledi2004-09-09 15:16

Rejestracja:ponad 22 lata
Ostatnio:ponad 5 lat

Kopiuj

  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);
  //w sumie nie pamietam do czego to bylo :P
}