cxSplitter禁用移动和拖拽,只允许点击箭头按钮触发缩放(展开和收起)

来源:互联网 发布:移动互联网最新数据 编辑:程序博客网 时间:2024/06/06 08:51
找到cxSplitter的CanResize事件,双击后写入如下代码就好了
procedure TForm1.cxSplitter1CanResize(Sender: TObject; var NewSize: Integer;  var Accept: Boolean);begin  Accept := False;end;

0 0
原创粉丝点击