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



Содержание раздела