TScrollBar компонент

Сайт на Delphi: ежедневни Delphi-новини, документация, статии, рецензия, интервю, компютърен хумор.

Компонентът TScrollBar обикновено се използва като помощник в други контроли: списъци, текстови области и др. Въпреки това, той може ефективно да се използва като самостоятелен контрол, например, за груба настройка на стойностите с помощта на плъзгач. Използвайки лентата за превъртане, потребителят може бързо да превърта дълъг списък или голяма картина, която не се побира на екрана. Лентата за превъртане понякога се използва и за показване или въвеждане на стойност. В допълнение, лентата за превъртане може да се използва за аналогично представяне на позицията на елемент.

Свойствата на лентата за превъртане Min и Max определят диапазона от стойности. Свойството Position съдържа текущата позиция на лентата за превъртане в диапазона от Min до Max. Можете да определите стойностите на свойствата Min, Max и Position, използвайки метода SetParams:

процедура SetParams (APosition, AMin, AMax: Integer);.

Свойството LargeChange определя размера на промяната в стъпката на свойството Position, когато потребителят щракне върху лентата за превъртане или натисне клавиш

. По същия начин свойството SmallChange определя увеличаването на свойството Position, когато потребителят щракне върху стрелка в единия край на лентата за превъртане или натисне клавишите със стрелки наляво/надясно. Когато преместите плъзгача, стойността в свойството Position се променя автоматично. Такава промяна обаче може да се извърши и програмно - тогава самият плъзгач ще се премести в желаната позиция. Когато стойността на свойството Position се промени, събитието OnChange винаги се генерира.

Свойството Kind задава ориентацията на лентата за превъртане - хоризонтална (по подразбиране) или вертикална. Кодът за обработване на събития OnScroll определя поведението на контролата, когато потребителят премести лентата за превъртане.

Кодът по-долу илюстрира използването на лентата за превъртане. Дисплеят на съответния прозорец е показан на фиг. 7.13.

Windows, съобщения, SysUtils, варианти, класове, графики, контроли, форми, диалогови прозорци, System.ComponentModel, Borland.Vcl.StdCtrIs? Тип

TForml - клас (TForrrt)

процедура FormCreate (Изпращач: TObject); частни

ScrollBarl.Max: = Forml.Height - 100; край; край.

Фигура: 7.13. Преместване на етикет върху формуляр

Имайте предвид, че първоначалните стойности се задават при обработка на OnCreate събитието за формуляра.

В този пример ограниченията за промяна на лентите за превъртане не са много добре зададени. Потренирайте се да задавате тези стойности.