#pas
function WndProcUpDownParent(Sender: PControl; var Msg: TMsg; var Rslt: Integer): Boolean;
var   UD: THIUpDown;
begin
   Result := FALSE;
   if ((Msg.message<>WM_HSCROLL)and(Msg.message<>WM_VSCROLL))or(Msg.lParam=0) then exit;
   Sender := Pointer( GetProp( Msg.lParam, ID_SELF ) );
   if Sender = nil then exit;
   UD := THIUpDown(Sender.Tag);
   if (UD = nil)or(UD.Guid <> UD_GUID) then exit;
   with UD do if LoWord(Msg.wParam) <> SB_ENDSCROLL then
      _hi_onEvent(_event_onPosition, Pos);
end;