не работает Drag and Drop

@Sover · Регистрация: 04.11.2009

Author24 — интернет-сервис помощи студентам

Мне для программы нужно использовать Drag and Drop я нашёл Улучшение текстового редактора, и сделал всё так как описано, но почему то не работает =( я не понимаю почему.
кто может сталкивался с такой проблемой помогите пожалуйста.
ЗЫ я гдето прочитал,что при добавлении значёк должен быть - лист со стрелочкой,а у меня лист с плюсиком.

LK · 19.02.2011, 10:26

Свой код покажите

. А с "плюсиком" - это правильнее

.

@Sover · 19.02.2011, 12:30 **[ТС]**

Отрывки из кода вот
Unit1.cpp:

C++

void __fastcall TForm1::WmDropFiles(TWMDropFiles& Message)
{
   HDROP drop_handle = (HDROP)Message.Drop;
   char fName[MAXPATH];
   int filenum = DragQueryFile(drop_handle, -1, NULL, NULL);
   for(int i = 0; i < filenum; i++){
      DragQueryFile(drop_handle, i, fName, MAXPATH);
      ReadFile(fName);
     }
   DragFinish(drop_handle);
}
// Ïîñëå ïåðåòàñêèâàíèÿ, âû÷èñëÿåì ðàñøèðåíèÿ è îòêðûâàåì ôàéë â RichEdit-----
void __fastcall TForm1::ReadFile(AnsiString FileName)
{
   AnsiString str = ExtractFileExt(FileName);
   if((str == ".txt")||(str == ".rtf"))
      RichEdit1->Lines->LoadFromFile(FileName);
}

Unit1.h:

C++

        TRichEdit *RichEdit1;
        void __fastcall FormCreate(TObject *Sender);
private:
void __fastcall WmDropFiles(TWMDropFiles& Message);
void __fastcall ReadFile(AnsiString FileName);  // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
BEGIN_MESSAGE_MAP
   MESSAGE_HANDLER(WM_DROPFILES, TWMDropFiles, WmDropFiles)
END_MESSAGE_MAP(TForm);
}

Добавлено через 1 минуту
вот ещё

C++

//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
DragAcceptFiles(Handle, true);        
}

она запускается, но не реагирует

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

@FaB0SS · 19.02.2011, 12:33

C++

void __fastcall TForm1::FormCreate(TObject *Sender)
{
DragAcceptFiles(Handle, true);        
}

Ты же не указал Хендл объекта, для которого разрешить перетаскивание файлов!

Вот например Для формы:

C++

1	DragAcceptFiles(Form1->Handle,true);

Или для RichEdit:

C++

1	DragAcceptFiles(RichEdit1->Handle,true);

@Sover · 19.02.2011, 12:38 **[ТС]**

неа не помогло разницы не видно=(

@FaB0SS · 19.02.2011, 12:42

Не знаю, что ты накрутил...
Я повторил всё, как описано по твоей же ссылке, всё работает.
Ты хоть txt файлы кидаешь?

@Sover · 19.02.2011, 12:45 **[ТС]**

да, конечно,txt,я вот думаю может это быть изза несовместимости 6ого билдера и win 7ки или нет ...

@FaB0SS · 19.02.2011, 12:50

Ты же не указал Хендл объекта, для которого разрешить перетаскивание файлов!

Извини, недоглядел там все нормально, там Хендл формы указан.)

У меня ВСВ6 и Вин ХП.
Код точно такой как по ссылке
Вот это у меня работает:

@Sover · 19.02.2011, 12:56 **[ТС]**

Ты не поверишь, у меня тоже работает... блин пож кинь исходник или скажи мож ты какието галочки ставил ну или я чтото упустил =(
хотя перечитал уже вдоль и поперёк
запускается, но не считывает файл и все

@FaB0SS · 19.02.2011, 13:06

Запустил ВСВ6
File->New->Application
настройки не менял, галочки нигде не ставил
Вкинул код и всё.

Вот тут полный код (на всякий случай):

Unit1.cpp

C++

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <dir.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
// Ïåðåòàñêèâàåì ôàéëû. Ñîçäà¸ì ñîáûòèÿ--------------------------------------
void __fastcall TForm1::WmDropFiles(TWMDropFiles& Message)
{
   HDROP drop_handle = (HDROP)Message.Drop;
   char fName[MAXPATH];
   int filenum = DragQueryFile(drop_handle, -1, NULL, NULL);
   for(int i = 0; i < filenum; i++){
      DragQueryFile(drop_handle, i, fName, MAXPATH);
      ReadFile(fName);
     }
   DragFinish(drop_handle);
}
// Ïîñëå ïåðåòàñêèâàíèÿ, âû÷èñëÿåì ðàñøèðåíèÿ è îòêðûâàåì ôàéë â RichEdit-----
void __fastcall TForm1::ReadFile(AnsiString FileName)
{
   AnsiString str = ExtractFileExt(FileName);
   if((str == ".txt")||(str == ".rtf"))
      RichEdit1->Lines->LoadFromFile(FileName);
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
DragAcceptFiles(Handle, true);
}
//---------------------------------------------------------------------------

Unit1.h

C++

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TRichEdit *RichEdit1;
        void __fastcall FormCreate(TObject *Sender);
private:    // User declarations
        void __fastcall WmDropFiles(TWMDropFiles& Message);
        void __fastcall ReadFile(AnsiString FileName);
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
BEGIN_MESSAGE_MAP
   MESSAGE_HANDLER(WM_DROPFILES, TWMDropFiles, WmDropFiles)
END_MESSAGE_MAP(TForm);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

@TheDarkMax2 · 19.07.2013, 14:00

Делаю тем же методом.
Смущает, что при перетаскивании файла на мою программу пропадает иконка под курсором.
Как можно оставить иконку при перетаскивании файла над моей программой?

@Sover 0 / 0 / 0 Регистрация: 04.11.2009 Сообщений: 9
		1
	не работает Drag and Drop 19.02.2011, 06:08. Показов 4957. Ответов 10 Метки нет (Все метки) Мне для программы нужно использовать Drag and Drop я нашёл Улучшение текстового редактора, и сделал всё так как описано, но почему то не работает =( я не понимаю почему. кто может сталкивался с такой проблемой помогите пожалуйста. ЗЫ я гдето прочитал,что при добавлении значёк должен быть - лист со стрелочкой,а у меня лист с плюсиком. 0

LK Заблокирован
	19.02.2011, 10:26	2
	Свой код покажите . А с "плюсиком" - это правильнее . 0

@Sover 0 / 0 / 0 Регистрация: 04.11.2009 Сообщений: 9
	19.02.2011, 12:38 [ТС]	5
	неа не помогло разницы не видно=( 0

@FaB0SS 68 / 68 / 9 Регистрация: 10.02.2011 Сообщений: 131
	19.02.2011, 12:42	6
	Не знаю, что ты накрутил... Я повторил всё, как описано по твоей же ссылке, всё работает. Ты хоть txt файлы кидаешь? 0

@Sover 0 / 0 / 0 Регистрация: 04.11.2009 Сообщений: 9
	19.02.2011, 12:45 [ТС]	7
	да, конечно,txt,я вот думаю может это быть изза несовместимости 6ого билдера и win 7ки или нет ... 0

@Sover 0 / 0 / 0 Регистрация: 04.11.2009 Сообщений: 9
	19.02.2011, 12:56 [ТС]	9
	Ты не поверишь, у меня тоже работает... блин пож кинь исходник или скажи мож ты какието галочки ставил ну или я чтото упустил =( хотя перечитал уже вдоль и поперёк запускается, но не считывает файл и все 0

@TheDarkMax2 UeArtemis 18 / 18 / 3 Регистрация: 23.09.2011 Сообщений: 205
	19.07.2013, 14:00	11
	Делаю тем же методом. Смущает, что при перетаскивании файла на мою программу пропадает иконка под курсором. Как можно оставить иконку при перетаскивании файла над моей программой? 0