//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.
效果如下:
标签：Accept,delphi,笔记,cxSplitter,cxSplitter1,var,展开 From： https://www.cnblogs.com/yoooos/p/16730381.html