public static T FindVisualChild<T>(DependencyObject obj) where T : DependencyObject { if (obj != null) { ; i < VisualTreeHelper.GetChildrenCount(obj); i++) { DependencyObject child = VisualTreeHelper.GetChild(obj, i); if (child != null &&…
procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin then ScrollBox1.Perform(WM_VSCROLL,SB_LINEDOWN,) else ScrollBox1.Perform(WM_VSCROLL,SB_LINEUP,); if ActiveControl…