Перетаскивание узлов из TVirtualStringTree в VCL-контрол при DragType = dtOLE

Delphi , Синтаксис , Деревья

В статье мы рассмотрим, как осуществлять перетаскивание узлов из компонента TVirtualStringTree в VCL-контрол, когда тип перетаскивания установлен в dtOLE. Несмотря на то, что перетаскивание узлов из одного TVirtualStringTree в другой с типом dtOLE работает корректно, может возникнуть необходимость перетаскивать узлы в другие VCL-контролы, например, в TListBox.

Для реализации данной функции существует несколько шагов, которые мы рассмотрим в этой статье.

Шаг 1: Реализация интерфейса IDropTarget

Первым шагом является реализация интерфейса IDropTarget. Этот интерфейс определяет методы, которые будут использоваться для обработки событий перетаскивания. Вы можете написать свой класс, реализующий этот интерфейс, или использовать существующую реализацию, например, из набора компонентов Drag&Drop от Anders Melander.

Шаг 2: Регистрация класса IDropTarget с VCL-контролом

После реализации интерфейса IDropTarget, следующий шаг - зарегистрировать этот класс с VCL-контролом, в который вы хотите перетаскивать узлы. Для этого можно использовать функцию RegisterDragDrop().

Шаг 3: Обработка данных в IDropTarget

В методе Drop() реализации интерфейса IDropTarget необходимо обработать данные, перетаскиваемые из TVirtualStringTree. Для этого можно запросить у предоставленного объекта IDataObject форматы CF_VIRTUALTREE и CF_VTREFERENCE. Если запрос успешен, то в методе Drop() будет доступна информация о перетаскиваемых узлах, которую можно скопировать в VCL-контрол.

Если VCL-контрол находится в том же процессе, что и TVirtualStringTree, из которого осуществляется перетаскивание, то можно сосредоточиться на формате CF_VTREFERENCE, так как он является простым и небольшим. Для получения списка выбранных узлов можно использовать метод GetSortedSelection TVirtualStringTree.

Пример кода на Object Pascal (Delphi) для реализации интерфейса IDropTarget:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.ActiveX, VirtualTrees, System.SysUtils;

type
  TForm1 = class(TForm)
    VT1: TVirtualStringTree;
    VT2: TVirtualStringTree;
    LB: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure VT1DragDrop(Sender: TObject; Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure VT1DragOver(Sender: TObject; Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
  private
    { Private declarations }
    FDropTarget: IDropTarget;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

type
  TMyDropTarget = class(TInterfacedObject, IDropTarget)
  private
    FOwner: TComponent;
  public
    constructor Create(Owner: TComponent);
    procedure DragEnter(Effect: TDragDropEffect; var KeyState: TShiftState;
      X, Y: Integer; var TargetEffect: TDragDropEffect);
    procedure DragOver(X, Y: Integer; KeyState: TShiftState; TargetEffect: TDragDropEffect);
    procedure DragLeave;
    procedure Drop(X, Y: Integer; KeyState: TShiftState; DataObj: IDataObject; TargetEffect: TDragDropEffect);
    property Owner: TComponent read FOwner;
  end;

{ TMyDropTarget }

constructor TMyDropTarget.Create(Owner: TComponent);
begin
  inherited Create;
  FOwner := Owner;
end;

procedure TMyDropTarget.DragEnter(Effect: TDragDropEffect; var KeyState: TShiftState;
  X, Y: Integer; var TargetEffect: TDragDropEffect);
begin
  // Обработка события DragEnter
end;

procedure TMyDropTarget.DragOver(X, Y: Integer; KeyState: TShiftState; TargetEffect: TDragDropEffect);
begin
  // Обработка события DragOver
end;

procedure TMyDropTarget.DragLeave;
begin
  // Обработка события DragLeave
end;

procedure TMyDropTarget.Drop(X, Y: Integer; KeyState: TShiftState; DataObj: IDataObject; TargetEffect: TDragDropEffect);
begin
  // Обработка события Drop
  // Здесь необходимо обработать данные, перетаскиваемые из TVirtualStringTree, и скопировать их в VCL-контрол
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Регистрация класса IDropTarget с VCL-контролом
  FDropTarget := TMyDropTarget.Create(Self);
  OleDragDrop.Register(FDropTarget, LB.Handle);
end;

procedure TForm1.VT1DragDrop(Sender: TObject; Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  // Обработка события DragDrop для VT1
end;

procedure TForm1.VT1DragOver(Sender: TObject; Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  // Обработка события DragOver для VT1
end;

end.

В данном примере создается класс TMyDropTarget, реализующий интерфейс IDropTarget. В методе Drop() этого класса необходимо обработать данные, перетаскиваемые из TVirtualStringTree, и скопировать их в TListBox. Также в методе FormCreate() регистрируется класс TMyDropTarget с VCL-контролом TListBox при помощи функции RegisterDragDrop().

Таким образом, следуя описанным шагам, можно реализовать перетаскивание узлов из TVirtualStringTree в VCL-контрол при установленном типе перетаскивания dtOLE.

Создано по материалам из источника по ссылке.

В статье рассматривается процесс перетаскивания узлов из компонента `TVirtualStringTree` в VCL-контрол, когда тип перетаскивания установлен в `dtOLE`.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Деревья ::