Перетаскивание файлов на свой компонент

@Avazart · Регистрация: 10.12.2010

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

Создаю свой компонент. Как в нем реализовать перетаскивание файлов на него.
Проблема в том что свойство Parent можно задать только после создания компонента, а оно как-то связано с его Handlе-ом который необходим для разрешения перетаскивания и его запрета.

@MikeSoft · 12.04.2012, 20:11

Avazart, я так понимаю, вы пытаетесь реализовать Drag'n'Drop?
Если да, то почему бы попросту не перехватить сообщение TWMDropFiles?
Если нет - тогда код в студию и было бы неплохо услышать более детальное объяснение...

@Avazart · 12.04.2012, 22:06 **[ТС]**

Ну вообщем проблема в следующем при вставке кода

C++
1
DragAcceptFiles(Handle,true);

в конструктор компонента, а

C++
1
DragAcceptFiles(Handle,false);

в деструктор, то в деструкторе возникают проблемы связанные с Handle.
Тоже самая проблема возникает как я помню и при прикручивании TCanvas к компоненту.

Пробывал сделать что-то с SetHandle() так и нечего недобился

@MikeSoft · 12.04.2012, 22:27

Avazart, из MSDN:

Parameters
hWnd Type: HWND
The identifier of the window that is registering whether it will accept dropped files.

fAccept Type: BOOL
A value that indicates if the window identified by the hWnd parameter accepts dropped files. This value is TRUE to accept dropped files or FALSE to discontinue accepting dropped files.

hWnd - идентификатор окна, принимающего сообщение. Укажите форму-приёмщик сообщений, а не компонент.
Windows регистрирует только приложения, которым нужно отправлять заявленный тип сообщений (в вашем случае - TWMDropFiles)

@Avazart · 12.04.2012, 22:48 **[ТС]**

Разве компонент не является окном у которого свой хендл ?

@MikeSoft · 13.04.2012, 00:32

Avazart, компонент компоненту рознь!
При ответе на такой вопрос нужно учитывать от какого класса был произведён компонент.
Классы, произведённые от TWinControl, имеют собственные дескрипторы.
Наследники TGraphicControl не являются "оконными"...

Чуть более подробнее я пытался расписать иерархию здесь: Visual Component Library: Вид изнутри, удаление и установка компонентов.

@Avazart · 13.04.2012, 00:41 **[ТС]**

То что я говорю о Handle само сабой говорит о том что компонет оконный.
Я пробовал наследовать от TPanel
Проблема возникает только при удалении компонента, например при закрытии программы.
Я неособо понимаю в какой последовательности вызываются деструкторы и освобожднается Handle, но очивидно что это просходит как-то неправильно.

@BRcr · 13.04.2012, 11:42

Avazart, вместо деструктора можно перегрузить метод BeforeDestruction.

Только не забудьте, что:

As implemented in TComponent, BeforeDestruction checks whether the Destroying method has been called, and if not, calls it. Descendants that override this method to perform other actions before a component is destroyed should call the inherited method first to ensure that this check takes place.

@Avazart · 13.04.2012, 16:45 **[ТС]**

Вообще тема давняя уже непоню как делал, вот попробовал

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
//---------------------------------------------------------------------------
__fastcall TMyPanel::TMyPanel(TComponent* Owner)
    : TPanel(Owner)
{
DragAcceptFiles(Handle,true);
}
//---------------------------------------------------------------------------
void __fastcall TMyPanel::SetParent(TWinControl* AParent)
{
//TPanel::SetParent(AParent);
//DragAcceptFiles(Handle,true);
}
//---------------------------------------------------------------------------
void __fastcall TMyPanel::BeforeDestruction()
{
//DragAcceptFiles(Handle,false);
}
//---------------------------------------------------------------------------

В строке 5 при создании компонента вылазиет ошибка.
ПРобывал обойти ее через SetParent, но тогда ошибка вылазиет при уничтожении ( независимо от наличия строки 16)

@DefineTrueFalse · 13.04.2012, 17:28

Если методу необходим указатель на созданное окно, то соотвественно в инициализации не надо его использовать, тем более пытаться вызвать преждевременное создание. Ответ, исходит из вопроса. Дескриптор окна можно использовать после получения события WM_CREATE. После этого делайте с окном, что вам будет угодно. Хотите используйте для этого напрямую Dispatch, а хотите используйте макросы BEGIN_MESSAGE_MAP, END_MESSAGE_MAP и MESSAGE_HANDLER.

@Avazart · 13.04.2012, 17:49 **[ТС]**

Вроде получилось

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
//---------------------------------------------------------------------------
class PACKAGE TMyPanel : public TPanel
{
private:
protected:
public:
    __fastcall TMyPanel(TComponent* Owner);
    virtual void __fastcall BeforeDestruction();
 
           // Не уверен что перехват записан корректно
    void __fastcall SetDragAcceptFiles(TMessage&);
 
    BEGIN_MESSAGE_MAP
      MESSAGE_HANDLER(WM_CREATE,TMessage,SetDragAcceptFiles); 
    END_MESSAGE_MAP(TComponent);
 
 
__published:
};
//---------------------------------------------------------------------------

C++
1
2
3
4
5
6
7
8
9
10
11
//---------------------------------------------------------------------------
void __fastcall TMyPanel::BeforeDestruction()
{
DragAcceptFiles(Handle,false); // Нужно ли это? (Без этого тоже работает)
}
//---------------------------------------------------------------------------
void __fastcall TMyPanel::SetDragAcceptFiles(TMessage& Msg)
{
DragAcceptFiles(Handle,true); 
}
//---------------------------------------------------------------------------

Добавлено через 1 минуту
А как сделать ?

напрямую Dispatch

@DefineTrueFalse · 13.04.2012, 17:57

Сообщение от Avazart

А как сделать ?

Не помню, уточнял ли я, но макросы и так используют эту процедуру, в справке (в BCB6 точно было) эти макросы расписаны подробно (в том числе их код). Если коротко, то описать Dispatch у себя в public, привести аргумент к TMessage и обрабатывать сообщения (Message->Msg) через switch, не забывая в необходимых случаях вызывать родительский Dispatch.

@Avazart · 13.04.2012, 18:04 **[ТС]**

Работает и с деструктором

C++
1
2
3
4
5
6
//---------------------------------------------------------------------------
__fastcall TMyPanel::~TMyPanel()
{
DragAcceptFiles(Handle,false);
}
//---------------------------------------------------------------------------

@DefineTrueFalse · 13.04.2012, 18:17

Сообщение от Avazart

Работает и с деструктором

Если окно еще не уничтожено, то должно работать корректно, вопрос только зачем? В msdn описана как:

Registers whether a window accepts dropped files.

Регистрирует окно, котоое разрешает "упавшие"(буксированные) файлы. Так, как используется дескритор окна, а не область и это процедура, а не функция (функция может возвращать сообщение об ошибке и если бы существовала некая таблица для окон, воспринимающих буксировку), то обязательно использовалась бы функция как минимум для возвращения ошибки о нехватке памяти), то никакого завершающего вызова не подразумивается. Только изменение флага для окна. Поэтому не понимаю, к чему вызов в деструкторе.

@Avazart · 13.04.2012, 18:23 **[ТС]**

То есть так:

C++
1
2
3
4
5
public:
    __fastcall TMyPanel(TComponent* Owner);
 
    virtual void __fastcall Dispatch(TMessage&  Message);
    __fastcall ~TMyPanel();

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//---------------------------------------------------------------------------
void __fastcall TMyPanel::Dispatch(TMessage&  Message)
{
if( Message.Msg == WM_CREATE )
  {
   DragAcceptFiles(Handle,true);
  }
TPanel::Dispatch(&Message);
}
//---------------------------------------------------------------------------
__fastcall TMyPanel::~TMyPanel()
{
DragAcceptFiles(Handle,false);
}
//-----------------------------------------------------------------------------

Толко в RAD2009 чет немогу найти нормального описания и настараживает что
Dispatch(void*);

Добавлено через 2 минуты

Только изменение флага для окна. Поэтому не понимаю, к чему вызов в деструкторе.

Ну я видел пример у Архангельского для формы поэтому решил что необходимо для освобождения памяти

@DefineTrueFalse · 13.04.2012, 18:34

Вот поэтому, я и рекомендовал использовать макросы, чтобы голову на начальном этапе не забивать лишней информацией. Я малость опаздываю, поэтому не могу сейчас подробно все описать. void * используется для совместимости и я бы не рекомендовал его менять, в вашем случае, должно выглядеть примерно так:

C++
1
2
3
4
5
void __fastcall TMyPanel::Dispatch(void * Message)
{
  if ( ((TMessage*)Message)-Msg == WM_CREATE) DragAcceptFiles(Handle,true);
  TPanel::Dispatch(Message); // или родитель родителя, если процедура его.
}

Только, вам еще придется перехватывать другие сообщения и тут либо воспользутейсь switch, либо все-таки вернитесь к макросам. Касательно повторного вызова DragAcceptFiles я уже писал.

Добавлено через 5 минут
Для освобождения памяти используется DragFinish, но немного в другом контексте. Впрочем, могло что-то и изменится, это все-таки winapi.

@Avazart · 13.04.2012, 18:46 **[ТС]**

Да действительно стоило изменить на void* стал ругаться MESSAGE_MAP типо повторное объявление Dispatch

вам еще придется перехватывать другие сообщения

Не совсем понимаю... Вы имеете ввиду само перетаскивание WM_DROPFILES?

@Avazart · 15.04.2012, 18:44 **[ТС]**

Я просто надеялся на то что есть стандартный метод который выполняется после Create и его можно переобозначить и туда установить DragAcceptFiles(Handle,true);

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@Avazart 8484 / 6151 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30

	Перетаскивание файлов на свой компонент 03.12.2011, 18:54. Показов 2849. Ответов 17 Метки нет (Все метки) Создаю свой компонент. Как в нем реализовать перетаскивание файлов на него. Проблема в том что свойство Parent можно задать только после создания компонента, а оно как-то связано с его Handlе-ом который необходим для разрешения перетаскивания и его запрета. 0

@MikeSoft 3956 / 1811 / 184 Регистрация: 21.11.2009 Сообщений: 2,540
	12.04.2012, 20:11
	Avazart, я так понимаю, вы пытаетесь реализовать Drag'n'Drop? Если да, то почему бы попросту не перехватить сообщение TWMDropFiles? Если нет - тогда код в студию и было бы неплохо услышать более детальное объяснение... 1

@Avazart 8484 / 6151 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	12.04.2012, 22:48 [ТС]
	Разве компонент не является окном у которого свой хендл ? 0

@MikeSoft 3956 / 1811 / 184 Регистрация: 21.11.2009 Сообщений: 2,540
	13.04.2012, 00:32
	Avazart, компонент компоненту рознь! При ответе на такой вопрос нужно учитывать от какого класса был произведён компонент. Классы, произведённые от TWinControl, имеют собственные дескрипторы. Наследники TGraphicControl не являются "оконными"... Чуть более подробнее я пытался расписать иерархию здесь: Visual Component Library: Вид изнутри, удаление и установка компонентов. 0

@Avazart 8484 / 6151 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	13.04.2012, 00:41 [ТС]
	То что я говорю о Handle само сабой говорит о том что компонет оконный. Я пробовал наследовать от TPanel Проблема возникает только при удалении компонента, например при закрытии программы. Я неособо понимаю в какой последовательности вызываются деструкторы и освобожднается Handle, но очивидно что это просходит как-то неправильно. 0

@DefineTrueFalse 872 / 448 / 35 Регистрация: 25.10.2011 Сообщений: 910
	13.04.2012, 17:28
	Если методу необходим указатель на созданное окно, то соотвественно в инициализации не надо его использовать, тем более пытаться вызвать преждевременное создание. Ответ, исходит из вопроса. Дескриптор окна можно использовать после получения события WM_CREATE. После этого делайте с окном, что вам будет угодно. Хотите используйте для этого напрямую Dispatch, а хотите используйте макросы BEGIN_MESSAGE_MAP, END_MESSAGE_MAP и MESSAGE_HANDLER. 1

@Avazart 8484 / 6151 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	15.04.2012, 18:44 [ТС]
	Я просто надеялся на то что есть стандартный метод который выполняется после Create и его можно переобозначить и туда установить DragAcceptFiles(Handle,true); 0