Код обработки OnDragOver
Листинг 8.3. Код обработки OnDragOver
procedure TForm1.ListBox2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
ListBox2. Items .Add (ListBox1. Items[ListBox1. ItemIndex]);
end;
Таким образом, мы добавляем выбранную строку компонента ListBox1 в компонент ListBox2.
Все! Можно запускать приложение при помощи клавиши <F9>
. Попробуйте перетащить любую строку из первого списка, во второй.
- Событие OnEndDrag — последнее из событий, которые предназначены для обработки переноса одного компонента на другой. Оно наступает при любом окончании процесса переноса, как успешного, так и неудачного (когда компонент отпущен над формой или компонентом, неспособными его принять). Данное событие наступает в перетаскиваемом компоненте. Это событие может применяться для реакции приложения на перетаскивание (например, "выполнено успешно" или "неудача"). В обработчике этого события параметр Sender — это сам объект перетаскивания, а параметр Target принимает значение компонента-приемника (при успешном перетаскивании) или значение nil — при неудачном переносе. Приведем пример (листинг 8.4).