荔园在线

荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀

[回到开始] [上一篇][下一篇]


发信人: 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属性为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 荔园晨风站 bbs.szu.edu.cn.[FROM: 192.168.1.3]


[回到开始] [上一篇][下一篇]

荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店