BeginUpdate, EndUpdate for TScrollBox

[LemonParty]

Hello.

I have a scroll box and I change positions of many contained controls. At first time this become laggy. Is there BeginUpdate, EndUpdate for scroll box?

[Thaddy]

use begin/endupdate from the parent control that contains all controls that change.

[LemonParty]

My parent control is the scroll box. And scroll box have no methods Begin/EndUpdate.

[marcov]

Yes. Delphi also has this problem, so I assume it is a win32 issue. I have a few helpers for that like

Code: Pascal  [Select][+][-]

1. procedure Scrollbarseteventlessposition(scr:TScrollbar;def:integer);
2. var oldevent : TNotifyEvent;
3.  
4. begin
5.   oldevent:=scr.OnChange;
6.   scr.onchange:=nil;
7.   scr.Position:=def;
8.   scr.OnChange:=oldevent;
9. end;
10. procedure Scrollbarseteventlesspositionminmax(scr:TScrollbar;def,min,max:integer);
11. var oldevent : TNotifyEvent;
12. begin
13.   oldevent:=scr.OnChange;
14.   scr.onchange:=nil;
15.   scr.SetParams(def,min,max);
16.   scr.OnChange:=oldevent;
17. end;
18.  

[LemonParty]

I found that when set the scroll box property Visible to False, then do changes and then set to True lags not occur.

[jamie]

There is a BeginFormUpdate and EndFormUpdate that may work for you.

[LemonParty]

There is a BeginFormUpdate and EndFormUpdate that may work for you.

This works too. Thank you.