Показать сообщение отдельно
  #4  
Старый 06.06.2012, 18:47
robt robt вне форума
Активный
 
Регистрация: 17.02.2011
Сообщения: 297
Репутация: -1806
По умолчанию

Цитата:
Сообщение от expmrs
Уважаемый robt, не просто так указано. Если делать AutoScroll := false они пропадают, при всякой попытке их вернуть (типа HorzScrollBar.Visible := true ), автоматическое прокручивание, при передаче фокуса, начинается снова
странный компонентег
Код:
/// вставить над определением формы
type
    TScrollBox = class(Forms.TScrollBox)
  protected
    procedure AutoScrollInView(AControl: TControl); override;
  end;
/// вставить над определением формы

/// вставить в имплементейшн
procedure TScrollBox.AutoScrollInView(AControl: TControl); 
begin
exit;
end;
/// вставить в имплементейшн
Ответить с цитированием