Переопределение WndProc для динамических компонентов

[timao]

Решил бороться с известным багом TDateTimePicker, когда MaxDate и Date в свойствах компонента совпадают (вылетает сообщение "Failed to set calendar date or time" при сворачивании окна выбора даты)
Нашёл в интернете код для игнорирования некоторых сообщений TDateTimePicker винде.

Переопределяю WndProc так:

TWndMethod OldWndProc;
...
OldWndProc = DateTimePicker1->WindowProc;
DateTimePicker1->WindowProc = DateTimePickerWndProc;
...
void __fastcall TMyForm::DateTimePickerWndProc(TMessage &Message)
{
    if (Message.Msg != CN_NOTIFY) {
        OldWndProc(Message);
        return;
    }
    try {
        OldWndProc(Message);
    }
    catch (const Exception &e) {
        TWMNotifyDT &Notif = reinterpret_cast<TWMNotifyDT&>(Message);
        switch (Notif.NMHdr->code)
        {
            case DTN_CLOSEUP:
                break;
            case DTN_DATETIMECHANGE:
               break;
        }
    }
}

Подскажите, как заменить конструкцию с сохранением указателя на дефолтный WndProc или другое решение для случая, когда компоненты вызываются динамически. Подумал про свой компонент-наследник, но может можно обойтись чем-то вроде TDateTimePicker::Dispatch(&Message) ; ?

[FataLL]

Запоминать указатель в Tag, например...

[timao]

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

Запоминать указатель в Tag, например...

Да, можно, но на все кривые решения стандартных проблем полей Tag не хватит, хотелось бы всё-таки более эстетичное решение

[FataLL]

Тогда субклассируй.

// Перед классом формы:
namespace MyDateTimePicker
{
    class TMyDateTimePicker : public TDateTimePicker
    {
    protected:
        TWndMethod OldWndProc;
    public:
        __fastcall virtual TMyDateTimePicker( Classes::TComponent* AOwner )
            : TDateTimePicker(AOwner)
        {
            ... // манипуляции по изменению виндовой функции
        }
    };
}
#define TDateTimePicker MyDateTimePicker::TMyDateTimePicker
 
class TForm1 : public TForm
// ...

Не претендую на правильность кода, билдера под рукой нет, но принцип должен быть ясен...

[timao]

Спасибо, проблема решена через наследование. Решил попробовать через Tag тоже и возникло несколько вопросов:

1) В первом методе через Tag как-то можно получить указатель на компонент, вызывающий WndProc?
Подумал, что можно узнать хендл (как?), а по нему получить указатель перебором компонентов через FindControl

2) Объясните, пожалуйста, для чего нужно пространство имён MyDateTimePicker? Наследовал класс без него, всё работает

[FataLL]

1) Действительно, засада.
2) На всякий случай

[Avazart]

2) Объясните, пожалуйста, для чего нужно пространство имён MyDateTimePicker? Наследовал класс без него, всё работает

Для того что бы не инсталить новосозданный компонент с целью поддержки дизайнтайма.