[Novikov.Alexander]

Победил!

Объявляем класс-наследник, и меняем процедуру AutoScrollInView.

I won!

Declare a class that inherits from TsScrollBox, and changing the procedure AutoScrollInView like that:

Code:

type
TsScrollBox = class(sScrollBox.TsScrollBox)
protected
procedure AutoScrollInView(AControl: TControl); override;
end;
TFSearchViewer = class(TForm)
…

procedure TsScrollBox.AutoScrollInView(AControl: TControl);
begin
if not (AControl is TNextGrid) then
inherited;
end;

Всем спасибо!)

[Author]

Posts