
06.06.2012, 18:47
|
Активный
|
|
Регистрация: 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;
/// вставить в имплементейшн
|