Delphi只允许在TControlBar上进行水平拖放

Question

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

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

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

我正在使用RAD studio XE4

Answer 1

将RowSize设置为ControlBar的Height：

  

指定控制栏行的高度。

并将RowSnap设为False：

  

指定控件在停靠时是否捕捉到控件栏的行。

     

使用RowSnap指定控件在停靠时是否捕捉到控件栏的行。捕捉的控件的“顶”和“高”属性会自动设置为与控制栏的行对应。