Правильная ссылка на эту страницу
http://az-design.ru/Support/SoftWare/Delphi/D3/SB58DropTarget.shtml

Глава 58. TListView.DropTarget

Свойство DropTarget

Затрагиваемые объекты Все элементы управления представлением в виде списка
Назначение Свойство DropTarget возвращает элемент в представлении в виде списка, который является адресатом операции перетаскивания.
Объявление property DropTarget: TListItem;
Пример синтаксиса
//  Принять  операцию перетаскивания, если перетаскиваемым объектом
//  является другой элемент представления в виде  списка

procedure TForm1.ListView1DragOver(Sender, Source: TObject; X,Y: Integer;
                                   State: TDragState; var Accept: Boolean);
begin
   If Sender is TListItem then Accept := True;

end;
// Отработать перетаскивание, напечатав, какой элемент представления в виде
// списка является адресатом операции

procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X,Y: Integer);
var
   MyListItem: TListItem;

Begin
   MyListItem := TListItem.Create(ListViewl.Items);
   MyListltem := ListView1.DropTarget;
   if MyListItem = nil then Label1.Caption := 'No drop target' 
                       else Labe11.Caption := MyListltem.Caption
                                       + ' is  the drag target';

end;
Описание Если ни один из элементов в элементе управления представлением в виде списка не является адресатом операции перетаскивания, свойство DropTarget возвращает Nil (см. рис. 58-5.)
Перетаскивание элемента представления в виде списка
РИСУНОК 58-5. Перетаскивание элемента представления в виде списка
[Свойство AllocBy] [Метод AlphaSort] [Метод Arrange] [Свойство BoundingRect] [Свойство Column] [Свойство ColumnClick] [Свойство Columns] [Метод CustomSort] [Свойство DropTarget] [Метод FindCaption] [Метод FindData] [Метод GetItemAt] [Метод GetNearestItem] [Метод GetNextItem] [Свойство IconOptions] [Метод IsEditing] [Свойство ItemFocused] [Свойство Items] [Свойство LargeImages] [Свойство MultiSelect] [Событие OnChange] [Событие OnChanging] [Событие OnColumnClick] [Событие OnCompare] [Событие OnDeletion] [Событие OnEdited] [Событие OnEditing] [Событие OnInsert] [Свойство ReadOnly] [Метод Scroll] [Свойство SelCount] [Свойство Selected] [Свойство ShowColumnHeaders] [Свойство SmallImages] [Свойство SortType] [Свойство StateImages] [Метод StringWidth] [Метод UpdateItems] [Свойство ViewOrigin] [Свойство VisibleRowCount]

<<< Пред. Оглавление
Начало раздела
След. >>>




Дата последнего изменения:
Thursday, 21-Aug-2014 09:10:55 MSK


Постоянный адрес статьи:
http://az-design.ru/Support/SoftWare/Delphi/D3/SB58DropTarget.shtml