Scrollbar не прокручивает

[boget]

Устанавливаю на форму компонент TScrollbar, делаю его вертикальным, выравниваю по правому краю, кидаю на форму компоненты ниже границы, компилирую - прокрутка не работает.

Если у формы поставить autoscroll и убрать TScrollbar, то прокрутка появляется и работает, но при этом при параметре Position = 0 она по умолчанию появляется прокрученная вниз.

Помогите пожалуйста, как сделать, чтоб TScrollbar заработал?

Для наглядности прикрепляю скрин скролбара
http://www.programmersforum.ru/attac...1&d=1286956142

[vasek123]

по правому краю, кидаю на форму компоненты ниже границы, компилирую - прокрутка не работает.

Ниже границы ScrollBar- а? Вообще- то, позицию ползунка ScrollBar- а можно задавать программно.

Сообщение от boget

Если у формы поставить autoscroll и убрать TScrollbar, то прокрутка появляется и работает, но при этом при параметре Position = 0 она по умолчанию появляется прокрученная вниз.

Свойство ScrollBar- а Position поставь на 50(если вверх, ставь на 100). У тебя оно на нуле. Это если хочешь чтобы был ползунок в середине


p.s. У меня все прекрасно работает, даже, без компонентов(за исключением TScrollBar).

[boget]

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, StdCtrls, jpeg, ExtCtrls, ShellAPI;

type
  TForm2 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Splitter1: TSplitter;
    Memo1: TMemo;
    ScrollBar1: TScrollBar;
    procedure FormCreate(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure Label4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label4MouseLeave(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}



procedure TForm2.FormCreate(Sender: TObject);
var
  s : string;
begin

end;

procedure TForm2.Label4Click(Sender: TObject);
begin
  ShellExecute(handle,'open','http://www.ya.ru',nil,nil,SW_SHOW);
end;


procedure TForm2.Label4MouseLeave(Sender: TObject);
begin
  label4.Font.Color := clHighlight;
end;

procedure TForm2.Label4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  label4.Font.Color := $b60e00;
end;


end.

[)Игнат(]

Сообщение от boget

Устанавливаю на форму компонент TScrollbar, делаю его вертикальным, выравниваю по правому краю, кидаю на форму компоненты ниже границы, компилирую - прокрутка не работает.

Вероятно, необходимо связать форму, и скроллбар.
хотя, самому интересно, каким образом это возможно, и зачем вообще. чем так плохи стандартные скроллбары?

[boget]

Компоненты кидаю ниже формы, скролбар выровнен по правому краю, размеры формы зафиксированы (640*480)

С Autoscroll = true:
Задаю position на 1 - ползунок в редакторе прыгает вверх, компилирую, открываю форму - он внизу. position задаю на 100 - ползунок в редакторе прыгает вниз, компилирую - так же внизу. А может быть такое из-за того, что изначально форма, на которой отображается прокрутка, скрыта (visible установлено в false)?

У компонента ScrollBar при отображении формы ползунок сам вниз не смещается, но он совсем не работает (при перетаскивании перетаскивается, а содержимое формы остается на месте).

[Stilet]

Подозреваю что нужно что-то в таком роде:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    ScrollBar1: TScrollBar;
    procedure FormCreate(Sender: TObject);
    procedure ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
      var ScrollPos: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
 ScrollBar1.Max:=0;
 for i:=0 to ControlCount-1 do
  if ScrollBar1.Max<(Controls[i].Top+Controls[i].Height) then
   ScrollBar1.Max:=(Controls[i].Top+Controls[i].Height);
 ScrollBar1.Max:=ScrollBar1.Max-Height;
end;

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
  Form1.ScrollBy(0,ScrollBar1.Tag-ScrollPos);
  ScrollBar1.Tag:=ScrollPos;
end;

end.

[boget]

Stilet так работает! В создание формы не писал, оставил только

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
  Form1.ScrollBy(0,ScrollBar1.Tag-ScrollPos);
  ScrollBar1.Tag:=ScrollPos;
end;

Но скролбар как-то дергается при прокручивании - граница моргает и сам дрожит на 1-2 пикселя периодически съезжает на мгновение

[boget]

Решил проблему! Оказывается, в свойсте tabstop у компонента TMemo нужно было false поставить - после компиляции программа обозначала первый таб и автоматически прокручивала окно к нему По мне это нелогично, когда явно задаешь нулевую позицию бегунка, прокручивать к табу автоматически.. особенно когда он не на первом экране. Автоскролл не дергается - буду использовать его.
Из-за чего ScrollBar дергается, не ясно - позиция в свойствах компонента жестко закреплена.