Как получить данные из TVirtualStringTree, зная его Handle?

[Человек_Борща]

А с чего вы взяли что оно должно работать? Компонент не виндовый.

[fedorov2012]

Сообщение от Человек_Борща

А с чего вы взяли что оно должно работать? Компонент не виндовый.

Потому что в исходниках:

TCustomVirtualStringTree = class(TBaseVirtualTree)
...
TVirtualStringTree = class(TCustomVirtualStringTree)
...

procedure WMCopy(var Message: TWMCopy); message WM_COPY;
...
procedure TBaseVirtualTree.WMCopy(var Message: TWMCopy);
begin
  CopyToClipboard;
end;

[eval]

procedure WMCopy(var Message: TWMCopy); message WM_COPY;

а прописано у кого?

[Человек_Борща]

Потому что в исходниках:

А что с того? Нельзя копировать то, не зная что.
Загляните в нутро CopyToClipboard, увидите что оно копирует туда объект как IDataObject, предполагая тем самым Ctrl+V в другой StringTree.

[fedorov2012]

Сообщение от Человек_Борща

Загляните в нутро CopyToClipboard, увидите что оно копирует туда объект как IDataObject, предполагая тем самым Ctrl+V в другой StringTree.

Ну да, т.е. получается в буфер он копирует, просто остается в ставить из этого буфера в StringTree? А что если сделать копирование в буфер, а затем уже в своем процессе вставить эти данные в StringTree или же копирование идет по ссылкам, т.е. не физические значения копируются а указатели на объекты?

[northener]

Сообщение от fedorov2012

Ну да, т.е. получается в буфер он копирует,

Неа. Он умеет вызывать CopyToClipboard в обработчике сообщения WMCopy. И не более того.

[Человек_Борща]

Ну да, т.е. получается в буфер он копирует, просто остается в ставить из этого буфера в StringTree?

Не проверял. Попробуйте Раз уж там олька и виндовые интерфейсы то вполне может таким образом переместить данные одного ПО в другое.

[fedorov2012]

Сообщение от Человек_Борща

Попробуйте

Т.е. правильно ли я понимаю мы в нашем процессе создаем свой VirtualStringTree, затем в удаленном копируем через WM_COPY, а далее в своем уже через WM_PASTE выполняем вставку?

[Человек_Борща]

Т.е. правильно ли я понимаю мы в нашем процессе создаем свой VirtualStringTree, затем в удаленном копируем через WM_COPY, а далее в своем уже через WM_PASTE выполняем вставку?

Да. Хотябы руками CTRL+C и CTRL+V

[fedorov2012]

Сообщение от Человек_Борща

Да. Хотябы руками CTRL+C и CTRL+V

не получается - я так понял копирование возможно внутри одного процесса
GetTreeFromDataObject вызывается внутри VirtualStringTree.pasteFromClipboar d;

function TBaseVirtualTree.GetTreeFromDataObject(const DataObject: 
IDataObject): TBaseVirtualTree;
...
if Assigned(Data) then
      begin
        if Data.Process = GetCurrentProcessID then
          Result := Data.Tree;
        GlobalUnlock(Medium.hGlobal);
      end;
...
end

Что делать?