Компонент грида с таскабельными записями

[igh0st]

Чтобы можно было мышкой зацепить запись и переместить ее выше/ниже, при этом чтобы текущая позиция вставки как-то идентифицировалась, например как в AIMP, когда меняется позиция выранного трека - подсвечивается жирной линией. Может кто встречал, я что-то на вскидку не могу ничего подобрать. Можно конечно запрограммировать штатную гриду или ListView через BeginDrag, но там не будет подстветки позиции вставки.

[Sibedir]

Drag And Drop в Listbox. Особенно первая ссылка.
Жирную линию рисовать самому на Canvas в обработчике OnDragOver.

Добавлено -----------------------------------------------------------------------------------------------

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
var
  r: TRect;
  i: Integer;
begin
  Accept := (Source = ListBox1) and (ListBox1.ItemIndex >= 0);
  if Accept then with ListBox1 do begin
    i := ItemAtPos (Point(X,Y+(ItemHeight div 2)), False);
    if i = -1 then
      r := ItemRect (Count)
    else
      r := ItemRect (i);
    ListBox1.Refresh;
    Canvas.Pen.Width := 3;
    Canvas.Pen.Color := clBlack;
    Canvas.MoveTo (r.Left, r.Top);
    Canvas.LineTo (r.Right, r.Top);
  end;
end;

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  i: Integer;
  s: String;
  o: TObject;
begin
  if Source = ListBox1 then with ListBox1 do begin
    s := Items.Strings [ItemIndex];
    o := Items.Objects [ItemIndex];
    i := ItemAtPos (Point(X,Y+(ItemHeight div 2)), False);
    if i > ItemIndex then i := i - 1;
    Items.Delete(ItemIndex);
    if i = -1 then
      Items.AddObject (s, o)
    else
      Items.InsertObject (i, s, o);
  end;
end;

[igh0st]

Сообщение от Sibedir

Drag And Drop в Listbox. Особенно первая ссылка.
Жирную линию рисовать самому на Canvas в обработчике OnDragOver.

Спасибо, но это уже совсем крайний вариант. Всё-таки хотелось бы какое-нибудь профессиональное решение, с автоорисовкой сепаратора и полупрозрачным изображением строки, которую тащат. Задача-то по-большому счету достаточно востребованная, на мой взгляд.

[Sibedir]

Ищите сторонние компоненты.

[Host-2013]

goRowMoving goColMoving уже не катят?