精华公布栏

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

制作可移动的分割窗体。

以下是实现一个简单分割（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；

if Source=Panel1 then

begin

Accept：=True；

Memo1．Height：=Y＋（Sender as TControl）．Top；

end；

end；

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