A continuación, limite el área de movimiento del mouse a (100,100,200,200)
varrect: TRect;
comenzar
rect.Izquierda:=100;
rect.Arriba:=100;
rect.Abajo:=200;
rect.Derecha:=200;
ventanas.ClipCursor(@rect);
Lo siguiente restaura el área de movimiento del mouse.
ventanas.ClipCursor(0);
No hace falta poner ejemplos concretos, es muy sencillo. Je, ji, ji, ji
La ayuda en Delphi dice esto:
La función ClipCursor limita el cursor a un área rectangular de la pantalla.
Si una posición posterior del cursor (establecida por la función SetCursorPos o el mouse)
se encuentra fuera del rectángulo, Windows ajusta automáticamente la posición para mantener el
cursor dentro del área rectangular.
BOOL Cursor de clip(
CONST RECT *lPRect // puntero a estructura con rectángulo
);
Parámetros
lprc
Apunta a la estructura RECT que contiene las coordenadas de pantalla de la parte superior.
esquinas izquierda e inferior derecha del rectángulo de confinamiento. Si este parámetro es.
NULL, el cursor puede moverse libremente a cualquier lugar de la pantalla.
Valores de retorno
Si la función tiene éxito, el valor de retorno es distinto de cero.
Si la función falla, el valor de retorno es cero. Para obtener información de error ampliada, llame a GetLastError.
Observaciones
El cursor es un recurso compartido. Si una aplicación limita el cursor, debe hacerlo.
suelte el cursor usando ClipCursor antes de ceder el control a otro
solicitud.
El proceso de llamada debe tener acceso WINSTA_WRITEATTRIBUTES a la estación de ventana.