scrollbar

[street-walker]

Подскажите пожалуйста как можно привязать scrollbar к tabseet?

[Neeter]

Извините, к TabSheet или к TabSet?

[street-walker]

именно TabSheet

[Лукманов Александр]

procedure TPagesDlg.scrlbr1Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
  PageControl1.TabIndex:=PageControl1.TabIndex+1;
end;

извините чуток перепутал. Запихните код в событие OnChange

[Neeter]

Лукманов Александр, по-моему street-walker'у нужен ScrollBox внутри TabSheet'а
Вот небольшой пример с вертикальным ScrollBar'ом, размещенным внутри TabSheet1:

...
private
  pos: integer;
...

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
 if ScrollCode = scLineUp then
  TabSheet1.ScrollBy(0, 1);
 if ScrollCode = scLineDown then
  TabSheet1.ScrollBy(0, -1);
 if ScrollCode = scTrack then
 begin
  if pos < ScrollBar1.Position then
   TabSheet1.ScrollBy(0, -1)
  else
   TabSheet1.ScrollBy(0, 1);
 end;

 pos := ScrollBar1.Position;
end;

Может быть, чем-нибудь поможет