荔园在线
荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: Peter (小飞侠), 信区: Program
标 题: DELPHI使用技巧(2)
发信站: BBS 荔园晨风站 (Thu Jan 21 22:28:16 1999), 转信
技巧2:制作可移动的分割窗体。
以下是实现一个简单分割(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;
ifSourceΚPanel1thenbegin
Accept:ΚTrue;
Memo1.Height:ΚY+(SenderasTControl).Top;
end;
end;
--
※ 来源:.BBS 荔园晨风站 bbs.szu.edu.cn.[FROM: 192.168.1.3]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店