Cómo obtener las coordenadas (X, Y) del mouse en relación con su ventana principal en un lenguaje sencillo

.DLL Comando GetParent, integer, "user32", "GetParent", , $(b) Determina el identificador de la ventana principal de la ventana especificada. Si la ventana no tiene ventana principal o se encuentra un error, se devuelve 0. Se establecerá GetLastError

. Identificador de ventana de parámetros, entero, identificador de la ventana que se va a probar;

.Comando DLL GetWindowRect, entero, "user32", "GetWindowRect"

.identificador de ventana de parámetros, entero< / p>

.Parámetro área rectangular, rectángulo_

.Versión 2

.Tipo de datos Rectángulo_, público, RECT

.Miembro izquierdo, entero, , Izquierda

Miembro Superior, entero, , Superior

Miembro Derecha, entero, , Derecha Miembro Inferior, entero, , Inferior

.Versión 2

.Soporte de biblioteca eAPI

.Subrutina __Start_Window_Created

Clock1.clock_cycle = 2000

Subrutina _clock1_cycle. evento

Variable local hwnd, entero

. Variable local hwnd_P, número entero

. Variable local rect, rect_

hwnd = GetWindowRect (hwnd)

hwnd_P = GetParent (hwnd)

GetWindowRect (hwnd_P, rect)

. Si (hwnd_P≠0)

genera texto de depuración ("coordenadas de la esquina superior izquierda: (" a texto (rect.left) ", " a texto (rect.top) ")derecha) ", " a text (rect.bottom) ")")

Salida de texto de depuración ("Coordenadas de la esquina inferior derecha: (" al texto (rect.right) "," al texto (rect. ")")

Texto de depuración de salida ("----- ---------- -----")

De lo contrario

Depuración de salida. text("La ventana no tiene padre")

si final

.