So ist die Methode keine Methode mehr - sondern eine einfache Procedure:
Delphi-Quellcode:
procedure RestorePosition(Scroll:TVertScrollBox; Layout:TLayout);
begin
Scroll.ViewportPosition := PointF(Scroll.ViewportPosition.X, 0);
Layout.Align := TAlignLayout.Client;
Scroll.RealignContent;
end;
Dies sollte sich dann auch (wenn Global als
Unit eingebunden wurde) so aufrufen können:
RestorePosition(VertScrollBox1, Layout1);
Grüße
Klaus