Перетащить файл из проводника на форму

[Galstuk1]

Привет.
Появилась необходимость перетащить файл из проводника на форму приложения (например, для копирования или определения его свойств). Игры со свойствами и методами самой формы, а также TLabel, TImage не привели к результату: при наведении указателя мыши, несущего файл из проводника, на форму, появляется знак запрета. Что нужно сделать для решения задачи?

[nick42]

"Drag and Drop файлов на форму/компоненту

добавляем в [Unit1.h] в секции несколько строчек

class TForm1 : public TForm
{
private:	// User declarations
	void virtual __fastcall WMDropFiles(TWMDropFiles &message);
public:		// User declarations
	BEGIN_MESSAGE_MAP
		MESSAGE_HANDLER(WM_DROPFILES,TWMDropFiles,WMDropFiles)
	END_MESSAGE_MAP(TForm);
};

[Unit1.cpp]

void __fastcall TForm1::FormCreate(TObject *Sender)
{
	DragAcceptFiles(Form1->Handle, true); 
//вместо Form1 может быть любой компонент, например, ListBox или Memo, тогда файлы будут дропаться только над этим компонентом"

[Galstuk1]

Что-нибудь в #include надо добавлять?

[nick42]

в инклуды - нет, а вот в unit1.cpp мне пришлось добавлять пустую функцию, иначе линкер ругался...

void __fastcall TForm1::WMDropFiles(TWMDropFiles &message)
{
 ;
}

[Galstuk1]

Спасибо, попробую

[nick42]

//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    DragAcceptFiles(Form1->Handle, true);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::WMDropFiles(TWMDropFiles &message)
{
   char chName[MAX_PATH];
   HDROP hdropHandle=(HDROP)message.Drop;
   //  get numbers of dragging files
   // int viNumber=DragQueryFile(hdropHandle,-1,NULL,NULL);
   DragQueryFile(hdropHandle,0,chName,MAX_PATH);
   Memo1->Lines->Add(chName);  //  path of dragging file
}

такой код выводит на мэмо полный путь перемещенного файла. Дальше по этим данным можно его уже использовать (в зависимости от типа).

[Galstuk1]

Я так понимаю, что для работы такого кода принимающий объект должен иметь Handle. У формы он есть, а у TLabel, TMemo, TImage или других есть? Хочу сделать на одной форме несколько областей для сброса файлов, каждая из которых будет задавать конкретное действие с файлом. Пока удалось реализовать только сброс файлов на саму форму, без разбора куда именно файл упал. Реально ли такое?

[nick42]

Для меня это тоже загадка, потому что этим свойством обладает только ListBox, - ни TPanel, ни TMemo, ни TGroupBox, ни TRichEdit... . То-есть файл они якобы принимают, но никакой реакции на код в функции WMDropFiles.

[Galstuk1]

Так, отлично. TImage->Canvas имеет Handle. Я написал в unit1.h

class TImage1 : public TImage
{
  private: // User declarations
	void virtual __fastcall WMDropFiles(TWMDropFiles &message);
  public: // User declarations
  BEGIN_MESSAGE_MAP
	MESSAGE_HANDLER(WM_DROPFILES, TWMDropFiles, WMDropFiles)
  END_MESSAGE_MAP(TImage);
 };
...
class TForm1 : public TForm
{
__published:	// IDE-managed Components
	TImage1 *Image1;
...
};

а в unit1.cpp

void __fastcall TImage1::WMDropFiles(TWMDropFiles &message)
{
 ;
}

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  DragAcceptFiles(Form1->Image1->Canvas->Handle,true);
}

Но компилятор дает ошибку
"Project raised exception class EClassNotFound with message 'Class TImage not found'"

[nick42]

компилятор дает ошибку
"Project raised exception class EClassNotFound with message 'Class TImage not found'"

... ну и ??!