ScrollPanel1.ScrollTop is not positioning after the code runs.

NOTE: I have put the code in the click event of a button and it works then.

----------------- SAMPLE CODE ---------------------
ds.DisableControls
 while not ds.Eof do
   begin
     with TLabel.Create(ScrollPanel1) do
     begin
       Caption := '';
       Layout.Consumption := lcBottom;
       Margin.Top := 20;
     end;
   end;
 end;

 ScrollPanel1.ScrollTop := 800;

ds.EnableControls;
-------------------------------------------------------------

A solution would be appreciated.

l27

On 8/5/2016 6:54 PM, Trinione wrote:
> ScrollPanel1.ScrollTop is not positioning after the code runs.
>
> NOTE: I have put the code in the click event of a button and it works then.

Looks like a order of processing and redraw issue so i would suggest to
try calling scroll asynchronously.

create a new procedure to do actual scroll

procedure st(x:integer);
begin
  ScrollPanel1.ScrollTop := x;   
end;

and then instead of
  ScrollPanel1.ScrollTop := 800;
call
  async st(800);

and see if this fixes things

Raul

Raul:
It worked perfectly. Thank you.

<< ScrollPanel1.ScrollTop is not positioning after the code runs. >>

In what context is the code running ?  In a form's OnCreate, etc. ?

Tim Young
Elevate Software
www.elevatesoft.com

<< In what context is the code running ?  In a form's OnCreate, etc. ? >>

In a procedure called from the form's OnShow event. It works perfectly now with the 'async' call.