精华公布栏

发信人: redfox (Z掉了几乎所有的版...), 信区: BorlandDev
标题: Delphi编程 -- 2.1 制作可移动的分割窗体
发信站: 哈工大紫丁香 (2000年09月01日13:22:28 星期五), 站内信件

对窗口控制

制作可移动的分割窗体。

以下是实现一个简单分割（SPLITTER）窗体的步骤：
1）在窗体中放置一个MEMO控件并设置它的Align属性为ALTOP；
2）在窗体中放置一个PANEL控件并设置它的Align属性为ALTOP；
3）设置PANEL控件的HEIGHT属性为6；
4）设置PANEL控件的DragMode属性为dmAutomatic．；
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；
ifSourceΚPanel1thenbegin
Accept：ΚTrue；
Memo1．Height：ΚY＋（SenderasTControl）．Top；
end；
end；

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.107]