Система Drag and Drop

За этим определением скрывается довольно часто используемая возможность современных операционных систем, а именно возможность перетаскивать объекты. Казалось бы, что такого существенного может внести система Drag and Drop в наши программы? На первый взгляд, это всего лишь возможность выделять и перетаскивать, но как раз этим и занимаются простые пользователи Windows, а значит и в наших программах логично предусмотреть данную опцию. С другой стороны, данная система может значительно упростить и ускорить работу с программами, что само по себе приятно и для пользователя и для разработчика.

Как же организовано перетаскивание объектов? Для начала, мы должны объявить в программе, что перетаскивание файлов разрешено. Далее, после того, как будет перенесен объект, Windows отошлет нашей программе сообщение WM _ DROPFILES . Наше приложение получит сообщение от системы и обработает его по карте сообщений (которую мы напишем) и перенаправит сообщение системы на нужную функцию, в которой мы уже будем делать все, то захотим, с этим файлом. 

Итак, в качестве примера мы будем использовать текстовые файлы, получиться следующие: запускаем программу, перетаскиваем на нее текстовой файл и он будет отображен в RichEdit (киньте его на форму). Для начала перейдите в заголовочный файл главной формы и в разделе public класса TForm 1 (у меня форма Form 1) пропишем карту сообщений:

BEGIN _ MESSAGE _ MAP
MESSAGE_HANDLER(WM_DROPFILES, TWMDropFiles, WMDropFiles)
END_MESSAGE_MAP(TForm); 

Далее ниже объявим обработчик события : 

void virtual __fastcall WMDropFiles(TWMDropFiles &message); 

Далее в конструкторе этого класса укажем , что программа готова для приема системных сообщений :

DragAcceptFiles(Handle, True); 

И теперь напишем сам обрабочик события WMDropFiles 

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

AnsiString MyFiles; // Имена файлов
MyFiles.SetLength(MAX_PATH); // Длина переменной
int Count = DragQueryFile((HDROP)message.Drop, 0xFFFFFFFF, NULL, MAX_PATH);

for (int index = 0 ; index < Count; ++ index) // Запускаем цикл обработки
{
MyFiles.SetLength(DragQueryFile( (HDROP)message.Drop,index, MyFiles.c_str(), MAX_PATH ));

/* Действия : */
RichEdit1->Clear();
RichEdit1->Lines->LoadFromFile(MyFiles) ;
}

DragFinish ( ( HDROP ) message . Drop ); // Сообщаем об окончании приема.
} 

В принципе, неплохо было бы, если создавалась новая форма с новым RichEdit , где отображался текст. Сделаем следующие, в действие при перетаскивании напишем: 

TForm 1* NewForm = new TForm 1( Application );
NewForm->Caption= MyFiles;
NewForm->RichEdit1->Lines->LoadFromFile(MyFiles);
NewForm->Show();

Не забывайте, что дочерняя форма создается прямо на старой форме, т.е для лицезрения результата отодвигайте новую форму. Также можно добавить проверку расширения файлов, чтобы файлы не поддерживаемые нашей программы игнорировались. Делается это так, опять же изменим действия : 
if ( UpperCase ( ExtractFileExt ( MyFiles ) ) == ". TXT " // UpperCase(ExtractFileExt(MyFiles) ) == ".RTF" )
{
TForm1* NewForm= new TForm1(Application);
NewForm->Caption= MyFiles;
NewForm->RichEdit1->Lines->LoadFromFile(MyFiles);
NewForm -> Show ();
} 

И последний штрих, заключается в том чтобы избежать утески памяти. В событие OnClose главной формы добавьте: 

Action = caFree ; 

Все, на этом написание примера закончено. Если у вас возникли вопросы или нужен исходник к статье - пишите на форум или на е-маил (lezh_victor@pcnext.ru).