Delphi разрешает горизонтальное перетаскивание на TControlBar

Question

У меня есть TControlBar, выровненный в нижней части моей основной формы (той же ширины). Высота этой панели управления фиксирована.

Эта панель управления содержит номер TPanels, выровненный по горизонтали (с соответствующими высотами). Эти панели содержат различные другие компоненты. Я хочу, чтобы они могли перемещать и переставлять эти панели горизонтально бок о бок, но запрещать вертикальное движение (исправить верх панели).

Как я могу достичь этого. Я попытался установить свойство Anchors->akTop для каждой панели на true. Но панели иногда перемещаются по вертикали, когда я пытаюсь перетащить их из стороны в сторону.

Я использую RAD Studio xe4

Answer 1

Установите RowSize в Height в ControlBar:

Определяет высоту строки элемента управления бара.

и установить RowSnap в False:

Определяет ли элементы управления привязываются к строкам в панель управления, когда купирован.

Используйте RowSnap, чтобы указать, будут ли элементы управления привязаны к строкам панели управления при стыковке. Элементы управления, которые были привязаны, имеют свойства Top и Height, установленные автоматически, чтобы соответствовать строкам панели управления.