Прокрутка, ScrollBox

Как перехватить сообщения скроллирования в TScrollBox?

2017-09-08T15:41:28+07:00

Следующий пример перхватывает сообщения скроллирования в компоненте TScrollBox, тем самым синхронизируя два скролбара. Если один из скролбаров изменяет своё положение, то значение второго скролбара изменяется на такую же величину. Сообщения скролирования перехватываются путём сабклассинга оконной процедуры (WinProc) у скролбара.

Подробнее...

Как сделать плавную прокрутку?

2017-09-08T15:42:21+07:00

Как сделать плавную прокрутку?

Как убрать HSCROLL у DBGRID?

2017-09-08T15:38:08+07:00

Нужные нам свойства существуют, но вынесены в секцию Protected предка DBGrid: TCustomGrid. Наиболее правильным способом было бы создание класса наследника от TDBGrid с выводом ScrollBars в секцию Public, но можно обойтись и без этого следующим способом:

Code:

Type TFake=class(TCustomGrid);

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

TFake(DBGrid1).ScrollBars:=ssVertical;

end;

Ползунок компонента TScrollBar все время мигает. Как это отключить?

2017-09-08T15:44:13+07:00

Установите свойтсво ScrollBar.TabStop в False.

Синхронизация двух компонентов ScrollBox

2017-09-08T15:43:14+07:00

Решить задачу помогут обработчики событий OnScroll (в данном примере два компонента ScrollBox (ScrollBar1 и ScrollBar2) расположены на форме TMainForm):

Code:

procedure TMainForm.ScrollBar1Scroll(Sender: TObject;

ScrollCode: TScrollCode; var ScrollPos: Integer);

begin

ScrollBar2.Position:=ScrollPos;

end;

procedure TMainForm.ScrollBar2Scroll(Sender: TObject;

ScrollCode: TScrollCode; var ScrollPos: Integer);

begin

ScrollBar1.Position := ScrollPos;

end;

Цветной ScrollBar

2017-09-08T15:45:48+07:00

Антон Григорьев

В Windows предусмотрено сообщение WM_CtlColorScrollBar, которое посылается окну, содержащему элементы управления ScrollBar (полосы прокрутки). В ответ на это сообщение окно должно вернуть системе кисть, которой надо закрасить полосу прокрутки. С помощью WM_CtlColorScrollBar можно получать разноцветные полосы прокрутки, что иногда бывает достаточно красиво.

Подробнее...