四、重载WndProc()函数

　　函数原型：

　　virtual void __fastcall WndProc(Message::TMessage &Message);

　　代码

　　//头文件中声明

　　void __fastcall WndProc(TMessage &Message);

　　//实现文件

　　void __fastcall TForm1::WndProc(TMessage &Message)

　　{

　　if(Message.Msg == WM_GETMINMAXINFO)

　　{

　　//付给结构体LPMINMAXINFO

　　LPMINMAXINFO lpmmi = (LPMINMAXINFO)Message.LParam;

　　//当用户单击窗体状态栏上的最大化按钮时，限制窗体的长宽

　　lpmmi->ptMaxSize.x = 600;

　　lpmmi->ptMaxSize.y = 400;

　　//设定窗体最大化时，左上角左边为窗体当前位置

　　lpmmi->ptMaxPosition.x = Left;

　　lpmmi->ptMaxPosition.y = Top;

　　//当用户用鼠标拖动的方式改变窗体尺寸时，限制其最大值

　　lpmmi->ptMaxTrackSize.x = 600;

　　lpmmi->ptMaxTrackSize.y = 400;

　　//当用户用鼠标拖动的方式改变窗体尺寸时，限制其最小值

　　lpmmi->ptMinTrackSize.x = 200;

　　lpmmi->ptMinTrackSize.y = 100;

　　//显示当前窗体的尺寸

　　Label1->Caption = "Width:" + AnsiString(this->Width)+

　　" Height: " + AnsiString(Height);

　　}

　　TForm::WndProc(Message);

　　}