Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];




Вниз

IDataObject 


avr555   (2002-01-08 16:44) [0]

Вопрос такой:
у меня в при перетаскивании передается IDataObject. Как мне из него вытащить указатель на объект.

Заранее благодарен.



Макс Черных   (2002-01-08 17:29) [1]

указатель на какой объект?
И вообще, что пишем то, drop source или drop target?



avr555   (2002-01-08 17:47) [2]

Извиняюсь, неправильно выразился.
У меня при OnDragDrop выполняется следующее:

DragDrop(Sender: TBaseVirtualTree; Source: TObject; DataObject: IDataObject; Formats: TFormatArray; Shift: TShiftState; Pt: TPoint; var Effect: Integer; Mode: TDropMode);

И мне нужно узнать что притащили.



Макс Черных   (2002-01-08 18:16) [3]

1. Что это за компонент с таким событием?

2. Drag&drop делается из того же приложения где компонент,
или из другого или и так и так?

В принципе же при работе через IDataObject никакого объекта
не передается. Через вызов IDataObject.EnumFormatEtc
можно получить интерфейс IEnumFORMATETC, который перечисляет
какие форматы данных (те же, что для Clipboard) поддерживаются
источником. Не исключено что в Formats: TFormatArray;
уже передается массив форматов, тут надо код компонента видеть.
Дальше вызывается IDataObject.GetData для получения данных
в нужном формате.
Например Word если в нем выделить кусок текста и перетащить
куда нибудь, поддерживает CF_TEXT, CF_METAFILEPICT и еще
кучу приватных форматов.







avr555   (2002-01-08 18:36) [4]

Понятно.
Будем копать...




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.021 c
1-75541           ЗЛОБНЫЙ КАРЛИК        2001-12-25 08:26  2002.01.24  
TRichEdit ПОМОГИТЕ!!!


3-75534           Hawk2                 2001-12-21 12:39  2002.01.24  
Индескация с помощью SQL-запросов.


1-75594           Stix                  2002-01-07 21:56  2002.01.24  
Русский HELP по Delphi 6


7-75693           BoBaH                 2001-10-11 13:20  2002.01.24  
TRegistry


4-75721           lionheart             2001-11-23 11:15  2002.01.24  
SetWindowsHookEx