Methodenaufruf nur für Klassenmethoden und Konstruktoren

[Sir Rufo]

Delphi-Quellcode:

unit FMX.Tools;

interface

uses
 {selber schauen, was hier alles benötigt wird}

type
  FMXTools = class sealed
  public
    class procedure RestorePosition( aScroll: TScrollBox; aLayout: TLayout );
  end;

implementation

class procedure FMXTools.RestorePosition( aScroll: TScrollBox; aLayout: TLayout );
begin
  aScroll.ViewportPosition := PointF(aScroll.ViewportPosition.X, 0);
  aLayout.Align := TAlignLayout.Client;
  aScroll.RealignContent;
end;

end.

Aufruf über

Delphi-Quellcode:

uses
  FMX.Tools;

procedure TSomeForm.Whatever;
begin
  FMXTools.RestorePosition( ScrollBox1, Layout1 );
end;