Delphi编程中实现窗口分割

在Delphi编程中实现窗口分割的关键是:使用Delphi的一个TSplitter组件(在Additional页中)。假设要把窗口分成左、右两部分,并且在运行中可以动态调节其相对大小,做法如下:

  1.在一个空白的Form中加入Panel1,Align设为alLeft。(也可根据实际情况设为alRight,alBottom或alTop)。

  2.在Form1的空白处加入一个Splitter,可以看到它自动处于紧贴Panel1的位置,它的Align属性的缺省值也是alLeft。如果Panel1的Align为alTop,Splitter也应设为alTop,依此类推。

  3.加入Panel2,Align设为alClient。在这里,必须有一个Panel为alClient。运行,把鼠标停在两个Panel之间,当光标改变成双向箭头形状时拖动它。试一下,是不是很爽?而且,一行代码也不用写!