Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Posicionar el cursor del ratón en unas coordenadas especificadas - Delphi
Lenguaje de programación Borland Delphi



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

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+