Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.24;
Скачать: CL | DM;

Вниз

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]

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



Страницы: 1 вся ветка

Текущий архив: 2002.01.24;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.004 c
4-75718
Serega__2
2001-11-23 15:37
2002.01.24
Синхронизация ScrollBar`ов у двух TCheckListBox


14-75666
JMK
2001-11-29 06:52
2002.01.24
ЛЮДИ ОТКУДА МОЖНО СКАЧАТЬ DELPHI 6!!!!!!!!!!!!!!!!!!!!!


6-75642
BeepCheck
2001-10-29 21:09
2002.01.24
html сохранить в файл


7-75688
VS
2001-10-08 13:22
2002.01.24
Конвентирование String в PChar


1-75569
Azeroth
2002-01-06 17:05
2002.01.24
Как запустить чужое приложение из своего





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский