diff --git a/lcl/interfaces/gtk2/gtk2wsstdctrls.pp b/lcl/interfaces/gtk2/gtk2wsstdctrls.pp index 56481f461c..d337c4b42d 100644 --- a/lcl/interfaces/gtk2/gtk2wsstdctrls.pp +++ b/lcl/interfaces/gtk2/gtk2wsstdctrls.pp @@ -2688,7 +2688,7 @@ class procedure TGtk2WSScrollBar.SetParams(const AScrollBar: TCustomScrollBar); var Range: PGtkRange; begin - if not AWinControl.HandleAllocated then + if not AScrollBar.HandleAllocated then exit; with AScrollBar do begin