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

@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);

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

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

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

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

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

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

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