Delphi позволява само хоризонтално плъзгане и пускане на TControlBar

Имам TControlBar, подравнен към дъното на моя основен формуляр (със същата ширина). Височината на тази контролна лента е фиксирана.

Тази контролна лента съдържа число от TPanels, подравнени хоризонтално (със съответстващи височини). Тези панели съдържат различни други компоненти. Искам да мога да премествам и пренареждам тези панели хоризонтално отстрани, но да забранявам вертикално движение (коригирайте горната част на панелите).

Как мога да постигна това. Опитах да задам свойството Anchors->akTop за всеки панел на true. Но понякога панелите се движат вертикално, докато се опитвам да ги плъзгам отстрани.

Използвам RAD studio XE4


drag-and-drop delphi panel delphi-xe4
person DanAsh    schedule 30.09.2015    source източник

Отговори (1)


arrow_upward
1
arrow_downward

Задайте RowSize на Height на ControlBar:

Указва височината на редовете на контролната лента.

И задайте RowSnap на False:

Указва дали контролите се прихващат към редовете на контролната лента, когато са закачени.

Използвайте RowSnap, за да укажете дали контролите да се прихващат към редовете на контролната лента, когато са закачени. Свойствата на контролите, които са прихванати, са зададени автоматично, за да съответстват на редовете на контролната лента.

person NGLN    schedule 30.09.2015
comment
Благодаря. Зададох тези свойства, но все още ми позволява да плъзгам лентата (TPanel) до ред, който не се вижда в ControlBar. Това кара панела да изчезне, тъй като height на ControlBar е фиксиран, а AutoSize е false. По принцип искам да огранича броя на редовете за ControlBar до 1, така че панелите да могат да се пренареждат само хоризонтално. - person DanAsh; 01.10.2015