简单的窗体分割...

实现一个简单的窗体分割，以下用一个Panel，两个Memo来实现。

Panel的属性设置如下：

Cursor = crVSplit
Align = alTop
DragCursor = crVSplit
DragMode = dmAutomatic

Memo1的属性如下：

Align = alTop

Memo2的属性如下：

Align = alClient

然后分别在两个Memo的DragOver方法的实现为：

Accept = false;
if(Source==Panel1)
{
       Accept = true;
       Memo1->Height = Y + dynamic_cast<TControl*>(Sender)->Top;
}

这样就可以实现一个窗体被两个Memo分割，并可以拉动Panel来调整Memo1,Memo2的大小。

这样就可以实现一个窗体被两个Memo分割，并可以拉动Panel来调整Memo1,Memo2的大小。