pl 

CreateHandle (TGtkWSBaseScrollingWinControl)

 

SetCallbacks (TGtkWSBaseScrollingWinControl)