VPF::Узнать что за объект "тащится" - Форум программистов

sinys

Дата 24.7.2007, 07:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 30.1.2007

Репутация: -1
Всего: -1

Код


 var
   aFmtEtc: TFORMATETC;
   aStgMed: TSTGMEDIUM;
   pData: PChar;
 begin
   if (dataObj = nil) then
     raise Exception.Create('IDataObject-Pointer is not valid!');
   with aFmtEtc do
   begin
     cfFormat := CF_TEXT;
   //  cfFormat := CF_HDROP;
     ptd := nil;
     dwAspect := DVASPECT_DOCPRINT;
     lindex := -1;
     tymed := TYMED_HGLOBAL;
   end;
   {Get the data}
   OleCheck(dataObj.GetData(aFmtEtc, aStgMed));

Так я в программе ожидаю только текст, а как указать чтобы программа сама узнала что тащится текст, файл, изображение и т.д. и в зависимости от этого применила структуру TFORMATETC? smile

Telepyz

Дата 24.7.2007, 09:08 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 119
Регистрация: 9.7.2007

Репутация: 1
Всего: 1

Прост отслеживарь изменение проложения объекта слева и сверху))

--------------------

обновить драйвер

Rennigth

Дата 24.7.2007, 09:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

Цитата(Telepyz @ 24.7.2007, 09:08

)

Прост отслеживарь изменение проложения объекта слева и сверху))

Ты вообще о чем?

--------------------

(* Honesta mors turpi vita potior *)

sentry

Дата 24.7.2007, 10:01 (ссылка)

(нет голосов)

Загрузка ...

Code Monkey

Профиль
Группа: Участник
Сообщений: 133
Регистрация: 29.1.2007
Где: Москва

Репутация: 2
Всего: 10

Цитата(sinys @ 24.7.2007, 07:16

)

тащится текст, файл, изображение и т.д.

В смысле пользователь перетаскивает файлы из папок Windows в твое приложение? Тогда нужно обрабатывать сообщение WM_DROPFILES.

Или тебе нужно вот это:

Цитата

You retrieve stored data from an IDataObject by calling the GetData method and specifying the data format in the format parameter. Set the autoConvert parameter to false to retrieve only data that was stored in the specified format. To convert the stored data to the specified format, set autoConvert to true, or do not use autoConvert.

To determine the formats of the data stored in an IDataObject, use the following IDataObject methods.

Call the GetFormats method to retrieve an array of all the formats in which the data is available. Set the autoConvert parameter to false to get only the formats in which the data is stored. To get all the formats in which the data is available, set autoConvert to true, or do not use this parameter.

Call the GetDataPresent method to determine whether stored data is available in a certain format. If you do not want stored data to be converted to the specified format, set the autoConvert parameter to false.

sinys

Дата 24.7.2007, 13:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 30.1.2007

Репутация: -1
Всего: -1

GetFormats
GetDataPresent
smile

экзамплу бы к ним

sentry

Дата 24.7.2007, 14:27 (ссылка)

(нет голосов)

Загрузка ...

Code Monkey

Профиль
Группа: Участник
Сообщений: 133
Регистрация: 29.1.2007
Где: Москва

Репутация: 2
Всего: 10

Маленькие примеры есть в MSDN, правда, не на Delphi smile

Тут GetFormats, а тут GetDataPresent.

sinys

Дата 25.7.2007, 06:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 30.1.2007

Репутация: -1
Всего: -1

Цитата(sentry @ 24.7.2007, 14:27)

Маленькие примеры есть в MSDN, правда, не на Delphi smile

Тут GetFormats, а тут GetDataPresent.

Во-во, хочу на делфи smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »