Clicar sem usar mouse
14/05/2003
0
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........
por exemplo.... um clique na regiao x,y na programacao do delphi....
qnd eu clico no botao ele dah o clique nakele local........
Andcarpi
Curtir tópico
+ 0
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...
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,
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
Clique aqui para fazer login e interagir na Comunidade :)