MainmForm.VertScroll.position:=0 raise AV

[Abaksoft]

Hello Sherzod,

If you don't mind, i can't return to the top of a MainmForm after scrolling (bottom).

Settings : 

procedure TMainmForm.UnimFormCreate(Sender: TObject);
begin
// to Get a vertical Scroll (without UnimScrollBox)
  MainmForm.AutoHeight:=False;
  MainmForm.Scrollable:=True;
end;

procedure TMainmForm.UnimButton1Click(Sender: TObject);
begin
 // Raise AV
 MainmForm.VertScrollBar.Position:=0;

 // Maybe something like ?
 //  UniMemo1.JSInterface.JSCall('inputEl.scrollTo', ['top']);
end;

Build 1535

Thx.

Project1.7z

[Sherzod]

28 minutes ago, Abaksoft said:

i can't return to the top of a MainmForm after scrolling (bottom).

Hello,

  Self.WebForm.JSInterface.JSCall('getScrollable().scrollTo', ['top']);

 

[Abaksoft]

5 minutes ago, Sherzod said:

Hello,

  Self.WebForm.JSInterface.JSCall('getScrollable().scrollTo', ['top']);

 

Perfect Maestro

Many thx

[mikromundo]

It´s OK