说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

制作可移动的分割窗体-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
制作可移动的分割窗体-Delphi资料

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

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘