Текущий архив: 2005.01.16;
Скачать: CL | DM;

Вниз

Работа с TListBox   Найти похожие ветки 

← →
Andrick ©   (2004-12-25 17:34) [0]

Есть компонент типа TListBox. Необходимо снабдить его drag-n-drop для строчек, причем я должен отслеживать, какая строчка на какое место опустилась. Желательно сделать все средствами Delphi, не используя WinAPI (если это вообще возможно). Желательно с примером или ссылкой на исходник

---

← →
default ©   (2004-12-25 17:46) [1]

если есть строки
a
b
c
d
e
и мы перетаскиваем третью строку на место второй то должно получиться:
a
c
b
d
e
?

---

← →
Leonid Troyanovsky ©   (2004-12-25 18:37) [2]

> Andrick ©   (25.12.04 17:34)  
> Есть компонент типа TListBox. Необходимо снабдить его drag-n-drop
> для строчек, причем я должен отслеживать, какая строчка
> на какое место опустилась. Желательно сделать все средствами
> Delphi, не используя WinAPI (если это вообще возможно).
> Желательно с примером или ссылкой на исходник



DragMode := dmAutomatic;

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

{OnDragDrop}
procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
 NewIndex : Integer;
begin
 with Sender as TListBox do
   begin
      NewIndex := ItemAtPos(Point(X,Y), True);
      Items.Move(ItemIndex, NewIndex);
      ItemIndex:= NewIndex;
   end;
end;


--
Regards, LVT

---

← →
Andrick ©   (2004-12-26 06:45) [3]

> Leonid Troyanovsky ©   (25.12.04 18:37) [2]

Спасибо, сегодня же опробую

---

Страницы: 1 вся ветка

Текущий архив: 2005.01.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.303 c