moeventinfoty

type moeventinfoty = record

  case Integer of

    0: (

        mouse: mouseeventinfoty;

      );

    1: (

        wheel: mousewheeleventinfoty;

      );

end;