Posición del mouse en la pantalla

12-02-2004

Descendents Descendents is offline

Miembro

Registrado: may 2003

Ubicación: Barcelona

Posts: 396

Poder: 24

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
s:tpoint;
begin
s := Mouse.CursorPos;
Label1.caption := ('X:'+INTTOSTR(S.X)+' Y:'+INTTOSTR(S.Y));
end;

Haber si te sirve
Saludos

__________________
La victoria tiene cien padres. La derrota es huérfana (Napoleón).

« Tema Anterior | Próximo Tema »

Herramientas	Buscar en Tema
Mostrar Versión Imprimible Enviar por Correo	Buscar en Tema: Búsqueda Avanzada
Desplegado
Cambiar a Modo Lineal Cambiar a Modo Hibrido Modo Hilado

Normas de Publicación
no Puedes crear nuevos temas no Puedes responder a temas no Puedes adjuntar archivos no Puedes editar tus mensajes El código vB está habilitado Las caritas están habilitado Código [IMG] está habilitado Código HTML está deshabilitado

Saltar a Foro

La franja horaria es GMT +2. Ahora son las 15:28:10.