- This topic has 1 reply, 1 voice, and was last updated 9 years, 9 months ago by
.
Viewing 1 post (of 1 total)
-
Posts
-
Победил!
Объявляем класс-наследник, и меняем процедуру 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)
- You must be logged in to reply to this topic.