delphi cxSplitter学习笔记

 

//cxSplitter禁用移动和拖拽，只允许点击箭头按钮触发缩放（展开和收起）
procedure TFraModleBase.cxSplitter3CanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean);
begin
  Accept:=False;
end;

 

cxSplitter1.CloseSplitter;  //收缩

cxSplitter1.OpenSplitter;  //展开

这里要说一下. 这里的收缩和展开,指的是让Algin为非alClient的部分收缩或者展开来,大家不要搞反了!

我做了一个上下屏的创意,希望能给大家一些启发:

预期效果:

　　1.正常情况下,scGroupBox1只显示到分割条上面,且分割条visible:false,避免用户拉伸.

　　2.点 新建时,收起上半部分,也下半部分显示出来

　　3.点 取消时,展开上半部分,

设计图如下

 

 代码也很简单,新建 用close,取消用open.

效果如下: