Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)
-   -   como mover el puntero del mouse con teclado (https://www.clubdelphi.com/foros/showthread.php?t=66142)

antonio302050 04-02-2010 00:17:47

como mover el puntero del mouse con teclado
 
saludos..
Disculpen mi ignorancia , mi pregunta es esta como se puede mover el puntero del mouse sin necesidad de ocupar el mouse ?¿
q funcion puedo ocupar en c++?¿
como en el juego de Solitario q con las direccionales se mueveel puntero
les agradezco la ayuda de antemano

roman 04-02-2010 01:56:42

Hola, bienvenido al Club Delphi, tu casa amiga :)

La API de Windows cuenta con la función SetCursorPos que te puede servir para colocar el puntero del ratón en cualquier lugar. Puedes entonces valerte del evento OnKeyDown para mover el cursor según la tecla de flecha que se oprima.

Te pongo un ejemplo en Delphi, pero no debe ser mayor problema traducirlo a C++.

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
        procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
        procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
    private
        StartX, StartY: Integer;
        Moving: Boolean;
    end;

var
    Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
const
    Arrows: set of Byte = [VK_LEFT..VK_DOWN];
    Speed = 15;

begin
    if Key in Arrows then
    begin
        if not Moving then
        begin
            Moving := true;

            StartX := Mouse.CursorPos.X;
            StartY := Mouse.CursorPos.Y;
        end;

        case Key of
            VK_LEFT: Windows.SetCursorPos(StartX - Speed, StartY);
            VK_UP: Windows.SetCursorPos(StartX, StartY - Speed);
            VK_RIGHT: Windows.SetCursorPos(StartX + Speed, StartY);
            VK_DOWN: Windows.SetCursorPos(StartX, StartY + Speed);
        end;

        StartX := Mouse.CursorPos.X;
        StartY := Mouse.CursorPos.Y;
    end;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
    Moving := false;
end;

end.

Claro que esto funcionaría sólo mientras el formulario tenga el foco.

// Saludos

antonio302050 05-02-2010 21:23:15

gracias
 
gracias por la respuesta tan rapida
lo voy a probar
una pregunta a q te referis con eso de q solo funcionara si el foco esta enele formulario?¿
a q te referis con el FOCO?¿
disculpa mi ignorancia

Casimiro Notevi 05-02-2010 21:41:30

Lo que quiere decir roman es que eso funcionará sólo en la ventana que lo tengas activo, que no funcionará, por ejemplo, en otro programa que tengas abierto ni en otro formulario de tu programa, salvo que lo incluyas también.

roman 05-02-2010 21:44:30

Básicamente, a que sea la ventana activa. Si te pasas a otra aplicación, el código ya no funcionará. Sólo una ventana a la vez puede recibir eventos del teclado, y ésa es la ventana que tiene el foco.

Si quieres hacerlo a nivel global, tendrías que crear un hook del teclado, pero eso es más complejo y podría interferir con la ventana que tenga el foco.

// Saludos

antonio302050 05-02-2010 21:51:06

graciasss
 
muchas gracias roman
se ve q sos muy bueno para programar
no como qsoy un novato
kisiera q me ayudes con otra duda como puedo usar struct en c++?¿
ya q es bueno para combinar variables
estoy tratando de programar este juego de pacman y struct lo kiero ocupar
de esta manera
pacman->x o pacman.x
fantasma->blinky->x->sw

pero nose como
disculpa mi ignorancia

roman 05-02-2010 21:56:19

Esto ya es un tema totalmente distinto que ni siquiera estoy seguro de entender. Por favor, no mezcles cosas distintas en un mismo hilo. Abre otro para tu nueva duda.

Como eres nuevo por aquí, te recomiendo que leas la guía de estilo.

// Saludos

antonio302050 05-02-2010 21:59:13

ok
 
esta bien voya crear otro hilo
gracias por todo


La franja horaria es GMT +2. Ahora son las 02:11:55.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi