Novikov.Alexander

Forum Replies Created

Viewing 1 post (of 1 total)
  • Author
    Posts
  • Novikov.Alexander
    Participant

      Победил!

      Объявляем класс-наследник, и меняем процедуру 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;

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

    Viewing 1 post (of 1 total)