Delphi 只允许在 TControlBar 上水平拖放

【问题标题】：Delphi only allow horizontal Drag-and-Drop on TControlBarDelphi 只允许在 TControlBar 上水平拖放
【发布时间】：2015-12-27 16:14:09
【问题描述】：

我有一个TControlBar 与我的主窗体的底部对齐（相同的宽度）。此控制栏的高度是固定的。

此控制栏包含多个TPanels，水平对齐（高度匹配）。这些面板包含各种其他组件。我希望能够左右移动和重新排列这些面板，但不允许垂直移动（修复面板顶部）。

我怎样才能做到这一点。我尝试将每个面板的Anchors->akTop 属性设置为true。但是当我尝试将它们左右拖动时，面板有时会垂直移动。

我正在使用 RAD Studio XE4

【问题讨论】：

【解决方案1】：

将RowSize设置为ControlBar的Height：

指定控制栏行的高度。

并将RowSnap 设置为False：

指定控件在停靠时是否与控件栏的行对齐。

使用 RowSnap 指定控件在停靠时是否与控件栏的行对齐。被捕捉的控件的 Top 和 Height 属性会自动设置为与控件栏的行相对应。

【讨论】：

谢谢。我已经设置了这些属性，但它仍然允许我将波段 (TPanel) 拖到 ControlBar 中不可见的行。这会导致面板消失，因为 ControlBar 上的height 是固定的，而AutoSize 是false。基本上我想将 ControlBar 的行数限制为 1，以便面板只能水平重新排列。