EventLParam

Синтаксис

Function EventLParam() As LPARAM

Описание

Позволяет получить значение LPARAM из обработчика сообщений

Параметры

нет

Платформы

Windows

Пример

#Include "window9.bi"
Dim As Integer event
Dim As HWND hwnd
hwnd=OpenWindow("",10,10,500,500) : CenterWindow(hwnd)
Do
  event=WindowEvent()
  If event=EventLBDOWN Then
     ? LOWORD(EventLParam) 'horizontal position of cursor
  EndIf
  If Event=EventClose Then End
Loop

Created with the Personal Edition of HelpNDoc: Free help authoring environment