Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > ScrollBar

Автор: MItornaDOS 6.3.2008, 21:57

Как мне размер скролла сделать как на рисунке (верхний мой, нижний пример)
user posted image

Автор: bems 7.3.2008, 12:30

SetScrollInfo

Автор: MItornaDOS 7.3.2008, 16:59

Цитата(bems @ 7.3.2008, 12:30

)

SetScrollInfo

А поподробней

Автор: MItornaDOS 12.3.2008, 00:08

Так мне кто-то подскажет?

Автор: Poseidon 12.3.2008, 10:47

Код


procedure TForm1.FormCreate(Sender: TObject);
var
  info: TScrollInfo;
begin
  FillChar(info, SizeOf(info), 0);
  with info do
  begin
    cbsize:= SizeOf(info);
    fmask:= SIF_PAGE;
    nPage:= ScrollBar1.LargeChange; // можно установить конкретное значение nPage:= 50
  end;
SetScrollInfo(ScrollBar1.Handle,SB_CTL, info, True);
end;

"Длину" правильнее будет регулирровать пераметром LargeChange в инспекторе обьектов. Хотя можно задать и жестко.