Как создать обработчик события ON_WM_DESTROY?

@lintiay · Регистрация: 15.06.2013

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

Здравствуйте уважаемые форумчане.
Ищу решение задачи следующего характера:
На форме имеется панель (TRzGridPanel), на которую динамически помещаются компоненты (TRzPanel) в некотором зарание не установленном кол-ве. После чего все обьекты типа TRzPanel следует удалить. Трудность заключается в том, что во время удаления неизвестно сколько обьектов осталось до завершения операции удаления.

Вот так работало раньше:

C++
1
2
3
4
5
6
7
ProgressBar->Max = GridPanel->ComponentCount;
    for (int k = GridPanel->ComponentCount; k; k--)
    {
        ProgressBar->StepIt();
        GridPanel->Components[k-1]->Free();     
    }
    ProgressBar->Position = 0;

Теперь же надо чтобы было так:

C++
1
2
3
//ProgressBar->Max = GridPanel->ComponentCount;
    GridPanel->DestroyComponents();
    //ProgressBar->Position = 0;

В данном случае не удается узнать состояние процесса удаления.

Пытался используя карту сообщений обновлять состояние ProgressBar-a, но ничего не вышло, не очень понимаю как это надо делать. Надеюсь на вашу помощь.

Нужно добавить компоненту TRzPanel возможность получать и обрабатывать событие при его удалении. Пытался вот так:

C++
1
2
3
4
5
6
7
8
//внутри класса TRzPanel
    virtual void __fastcall OnDestroy(TObject*);
    virtual void __fastcall OnDestroy();
    __property TNotifyEvent OnDestroyPnl = {read=OnDestroy, write=OnDestroy};
 
    BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER(WM_DESTROY, TObject*, OnDestroyPnl)
    END_MESSAGE_MAP(TRzPanel)

компилируется нормально, но при попытке использовать обработчик:

C++
1
2
3
4
5
6
7
8
9
10
//внутри класса TRzPanel
void __fastcall DestroyPanel(TObject *Sender)
{
    //ProgressBar->StepIt();
}
TRzPanel* __fastcall TForm::NewPanel() 
{
    TRzPanel* pnl         = new TRzPanel(this);
    pnl->OnDestroyPnl     = DestroyPanel;
}

компилятор выдает ошибку:

Code
1
[BCC32 Error] Unit1.cpp(174): E2034 Cannot convert 'void (_fastcall *)(TObject *)' to 'TNotifyEvent' Full parser context Unit1.cpp(170): parsing: TRzPanel * _fastcall TForm::NewPanel()

пытался также определить виртуальный метод: virtual void __fastcall BeforeDestruction(void);

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
TRzPanel* __fastcall TForm::NewPanel() 
{
    TRzPanel* pnl           = new TRzPanel(GridPanel);
    pnl->Tag                = int(ProgressBar);
}
 
//внутри класса TRzPanel
void __fastcall BeforeDestruction(void)
{
    TProgressBar * pbar = (TProgressBar *)TRzPanel::Tag;
    pbar->StepIt();
        Sleep(1000);
}

Данный код ошибок не генерирует но и не работает.

@+1 · 17.06.2013, 06:43

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

на которую динамически помещаются компоненты (TRzPanel) в некотором зарание не установленном кол-ве...
во время удаления неизвестно сколько обьектов осталось...

А не проще подсчитывать их во время создания?

@lintiay · 17.06.2013, 13:11 **[ТС]**

Количество объектов (TRzPanel) известно, после их создания. задача состоит в другом.

Удаление объектов занимает достаточно продолжительный период и в этот момент программа вполне может повиснуть. Было бы хорошо, если сами объекты, перед удалением, могли обновлять свое текущее оставшееся количество. Отображая результат в виде полоски ProgressBar-a.

PS: Решение хотелось бы найти именно в таком виде (с помощью перехвата сообщений WM_DESTROY), так как сама идея очень интересна.

AntonChik · 17.06.2013, 13:46

C++
1
MESSAGE_HANDLER(WM_DESTROY, TObject*, OnDestroyPnl)

не пробовали TMessage вместо TObject?

посмотрите тут:
Создание обработчиков сообщений

@lintiay · 17.06.2013, 20:00 **[ТС]**

не пробовали TMessage вместо TObject?

Пробовал, результат тот же. Приложение компилируется, но событие не происходит, оптимизатор функцию игнорирует. Предполагаю, что это связанно с тем, что необходимо заново построить компонент TRzPanel, т.к. я внес изменения в хидер-файл. Но при попытке его пересобрать из исходников - выдает ошибки типа:

C++
1
2
[Fatal Error] Can't load package RaizeComponentsVcl_Design.bpl.
Не удается найти указанный файл

вот мой пример:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
class DELPHICLASS TRzPanel;
class PASCALIMPLEMENTATION TRzPanel : public TRzCustomPanel
{
    typedef TRzCustomPanel inherited;
    
           ...
 
public:
    inline __fastcall virtual OnDestroyPanel(TMessage & msg)
    {
        TProgressBar * pbar = (TProgressBar *)TRzPanel::Tag;
        pbar->StepIt();
        Sleep(1000);
    }
 
protected:
    BEGIN_MESSAGE_MAP
        VCL_MESSAGE_HANDLER(WM_DESTROY, TMessage, OnDestroyPanel)
    END_MESSAGE_MAP(TRzPanel)
};

Может кто знает как скомпилировать: "RAIZE COMPONENTS VERSION 6"

Новые блоги и статьи Все статьи Все блоги /
сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и источниками (напряжения, ЭДС и тока). Найти токи и напряжения во всех элементах. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и. . .

@lintiay 0 / 0 / 0 Регистрация: 15.06.2013 Сообщений: 3
	17.06.2013, 13:11 [ТС]
	Количество объектов (TRzPanel) известно, после их создания. задача состоит в другом. Удаление объектов занимает достаточно продолжительный период и в этот момент программа вполне может повиснуть. Было бы хорошо, если сами объекты, перед удалением, могли обновлять свое текущее оставшееся количество. Отображая результат в виде полоски ProgressBar-a. PS: Решение хотелось бы найти именно в таком виде (с помощью перехвата сообщений WM_DESTROY), так как сама идея очень интересна. 0