Drag and Drop - как использовать ItemAtPos для получения элемента DirListBox

Просто сохраните результат функции ItematPos в переменной формы, и затем используйте эту переменную в обработчике ListBoxDragDrop. Пример:

FDragItem := ItematPos(X, Y, True);
if FDragItem >= 0 then
  BeginDrag(false);
...

procedure TForm1.ListBoxDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if Source is TDirectoryListBox then
    ListBox.Items.Add(TDirectoryListBox(Source).GetItemPath(FDragItem));
end;

Похожие по теме исходники

Market Monitoring and Billing

Black and White Effects

Sand Dog

Wave and MIDI In-Out

Vista and 7 Sound

Improved Buttons and ProgressBar

Desktop Sands

Rotation and Symmetry

Dropper (пипетка Фотошоп)

Нейросеть для распознавания образов

Механизм станка качалки для нефти

Весы для взвешивания

Кувшины для воды

Доска для игры Реверси

Недавно добавленные исходники
• Animation Loaders 1 038 • DeLiKaTeS Tetris (Тетрис) 5 971 • TDictionary Custom Sort 7 908 • Fast Watermark Sources 7 569 • 3D Designer 10 808 • Sik Screen Capture 8 142 • Patch Maker 8 329 • Айболит (remote control) 8 386 • ListBox Drag & Drop 7 237 • Доска для игры Реверси 101 438 • Графические эффекты 8 444 • Рисование по маске 7 811 • Перетаскивание изображений 6 403 • Canvas Drawing 6 786 • Рисование Луны 6 716 • Поворот изображения 5 827 • Рисование стержней 4 772 • Paint on Shape 3 472 • Генератор кроссвордов 4 477 • Головоломка Paletto 3 609 • Теорема Монжа об окружностях 4 402 • Пазл Numbrix 2 855 • Заборы и коммивояжеры 3 804 • Игра HIP 2 572 • Игра Go (Го) 2 582 • Симулятор лифта 2 965 • Программа укладки плитки 2 395 • Генератор лабиринта 3 149 • Проверка числового ввода 2 632 • HEX View 3 039