Posicao de Mouse

Question

Aee alguem sabe como pegar a posicao do mouse dentro de um objeto Webrowser ? Tipo eu consigo pegar a posicao do mouse na tela, mais se a resolucao do computador for diferente essa posicao muda... Eu queria pegar uma posicao em torno do meu form, pra que funcione em qualquer resolucao ... Alguma ideia ?

Woinch · Answer

D� uma pesquisada na fun��o ScreenToClient ela com certeza ir� lhe ajudar. ClientToScreen e ClientToParent podem lhe ser uteis tamb�m.Qualquer d�vida favor postar....

Desander · Answer

Veja se � isso que vc procura:[code:1:d01ef059a1]unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Linha: TLabel;    Coluna: TLabel;    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,      Y: Integer);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);begin  Linha.Caption:= IntToStr(X);  Coluna.Caption:= IntToStr(Y);end;end.[/code:1:d01ef059a1][/code]...

Bertu · Answer

consegui ja vlw pela ajuda... segue o codigo se alguem quiser saber

var
 Pt : TPoint;
begin

 Pt.x := WebBrowser1.Left + (110);
 Pt.y := WebBrowser1.Top + (75;

 Pt := ClientToScreen(Pt);
 Pt.x := Round(Pt.x * (65535 / Screen.Width));
 Pt.y := Round(Pt.y * (65535 / Screen.Height));

 Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, Pt.x, Pt.y, 0, 0);

 Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0);
 
 Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0);
end;

F�rum Posicao de Mouse #370390