Clicar sem usar mouse

14/05/2003

2

Alguem sabe se eu consigo fazer um clique na tela sem o uso do mouse....
por exemplo.... um clique na regiao x,y na programacao do delphi....

qnd eu clico no botao ele dah o clique nakele local........


Responder

Posts

15/05/2003

By Alemão

procedure TForm1.TimerTimer(Sender: TObject);
var Pos:TPoint;
begin
GetCursorPos(Pos);
Label1.Caption := IntToStr(Pos.X) + ´ , ´ + IntToStr(Pos.y);
end;

Voce pode colocar assim

Pos.x := 100;
Pos.y := 100;
Aki vc coloca o quer q o mouse faça...

tem q descobrir em q ponto esta o q vc quer clicar...


Responder

15/05/2003

Guigao

Para obter os valores das coordenadas do mouse de qualquer parte da tela, basta que se utiliza a função da API do Windows GetCursorPos. Esta função é interessante pois oferece ao programador os valores (x,y) de qualquer ponto da tela e não somente da aplicação.

Para implementação, esta função pode ser utilizada da seguinte maneira:

procedure TForm1.Timer1Timer(Sender: TObject);
var
pt: TPoint;
begin
GetCursorPos(pt); // Pega a posição atual do mouse;
//Mostra os valores das coordenadas do mouse
label1.caption := IntToStr(pt.x) + ´,´ + IntToStr(pt.y);
end;

Esta é mais uma das milhares de funções da API do Windows.

Abraços,


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira