void __fastcall TfrmMain::CreateParams(TCreateParams & Params)
{
TForm::CreateParams(Params); // call base class first
Params.Style &= ~WS_DLGFRAME;
Params.Style |= WS_POPUP;
}
这个函数没有主动调用他的地方，这样窗体就可以通过把鼠标放在边上，通过拖拽改变大小了。
现在这个窗体中放一个RichEdit就不知道怎么弄了。