minimize问题

[rockyan001]

单击窗口右上角的最小化时，不最小化，而执行其他代码，怎么实现？

[lirg8405]

....为什么会有这种需求？？

[ccrun.com]

拦截窗体的最小化消息即可，举个简单例子：
.h文件中：

private:	// User declarations
    void __fastcall Fun();
    void __fastcall WndProc(TMessage &Msg);

.cpp文件中：

//---------------------------------------------------------------------------
// 自定义的函数
void __fastcall TForm1::Fun()
{
    Caption = ::GetTickCount();
}

//---------------------------------------------------------------------------
// 重载窗体WndProc函数
void __fastcall TForm1::WndProc(TMessage &Msg)
{
    if (Msg.Msg == WM_SYSCOMMAND && Msg.WParam == SC_MINIMIZE)
    {
        Fun();

        return;
    }
    TForm::WndProc(Msg);
}

[rockyan001]

非常感谢妖哥