Турбо Паскаль 6.0

         

Процедура GetMouseEvent Drivers


================================================================= Объявление procedure GetMouseEvent(var Event: TEvent);

Функция Проверяет, доступно ли событие от мышки из очереди событий от мышки, поддерживаемой обработчиком событий Turbo Vision. Если происходит событие от мышки, Event.What устанавливается в evMouseDown, evMouseUp, evMouseMove или evMouseAuto; Event.Buttons устанавливается в mbLeftButton или mbRightButton; Event.Double устанавливается в True или False; Event. Where устанавливается в позицию мышки в глобальных координатах (соответствующих координатной системе TApplication). Если события от мышки недоступны, Event.What устанавливается в evNothing. GetMouseEvent вызывается из TProgram.GetEvent.

См. также TProgram.GetEvent, события evXXXX, методы HandleEvent.



Содержание раздела