以下是实现一个简单分割（SPLITTER）窗体的步骤：
    1）在窗体中放置一个MEMO控件并设置它的Align属性为ALTOP；
    2）在窗体中放置一个PANEL控件并设置它的Align属性为ALTOP；
    3）设置PANEL控件的HEIGHT属性为6；
    4）设置PANEL控件的DragMode属性为dmAutomatic．；
    5）设置PANEL控件的DragCursor属性为crVSplit．；
    6）设置PANEL控件的Cursor属性为crVSplit；
    7）在窗体中再放置另一个MEMO控件并设置它的Align属性为ALCLIENT；
    8）最后为两个MEMO控件的OnDragOver事件添加相同的代码：
procedureTForm1．Memo1DragOver（Sender，Source：TObject；X，
Y：Integer；State：TDragState；varAccept：Boolean）；
begin
Accept：=False；
if Source=Panel1thenbegin
Accept：=True；
Memo1．Height：=Y＋（SenderasTControl）．Top；
end；
end；