Os mostramos un ejemplo de cómo colocar el cursor del ratón en una posición determinada. Para ello hemos utilizado un par de controles TEdit (para poner las coordenadas) y un botón para posicionar el cursor:

unit UnidadPosicionarCursor;

interface

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

type
  TformPosicionarCursor = class(TForm)
    bPosicionar: TButton;
    Label1: TLabel;
    txtX: TEdit;
    Label2: TLabel;
    txtY: TEdit;
    procedure bPosicionarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formPosicionarCursor: TformPosicionarCursor;

implementation

{$R *.DFM}

procedure TformPosicionarCursor.bPosicionarClick(Sender: TObject);
begin
  Mouse_Event(MOUSEEVENTF_MOVE, strtoint(txtX.Text), strtoint(txtY.Text), 0, GetMessageExtraInfo);
end;

end.

Publicado el: 2006-03-05