Советы по Delphi
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; |
[001664]
