[expmrs]

Уважаемые эксперты, есть компонент ScrollBox, внутри которого несколько компонент, имеющих фокус ввода. Как сделать, что бы при перемещении фокуса ввода между этими компонентами, не возникало прокрутки области в ScrollBox ?? (однако сами полосы прокруток, с возможностью ручного прокручивания должны присутствовать)

[robt]

AutoScroll := false
невероятно, правда ?

[expmrs]

Уважаемый robt,

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

(однако сами полосы прокруток, с возможностью ручного прокручивания должны присутствовать)

не просто так указано. Если делать AutoScroll := false они пропадают, при всякой попытке их вернуть (типа HorzScrollBar.Visible := true ), автоматическое прокручивание, при передаче фокуса, начинается снова

[robt]

Сообщение от 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;
/// вставить в имплементейшн

[expmrs]

Большое спасибо, то что нужно (exit можно убрать, объявив просто пустой метод)

[robt]

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

Большое спасибо, то что нужно (exit можно убрать, объявив просто пустой метод)

но луче оставить, ибо оптимизация может заигнорить,в какойнить версии дельфы