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

找到cxSplitter的CanResize事件，双击后写入如下代码就好了

procedure TForm1.cxSplitter1CanResize(Sender: TObject; var NewSize: Integer;
  var Accept: Boolean);
begin
  Accept := False;
end;