Delphi dicas

Posição do mouse dentro da janela

{

A função CursorPos do objeto nativo Mouse retorna um ponto com as posições do mouse referente a coordenada (0,0) da TELA. Diferentemente, a função abaixo retorna um ponto TPoint com as posições X e Y do mouse com relação a coordenada (0,0) da JANELA passada como parâmetro.



Uso:

GetMousePos(form1).X    retorna a posicao X do mouse

GetMousePos(form1).Y    retorna a posicao Y do mouse

GetMousePos(form1)       retorna um objeto Tpoint



IMPORTANTE: Se o mouse estiver fora da janela, as duas coordenadas são fixadas em -1.

}





function GetMousePos(janela:tform):tpoint;

var

ponto: Tpoint;

begin

        ponto:=janela.ClientOrigin;

        ponto.x:=mouse.CursorPos.x-ponto.x;

        ponto.y:=mouse.CursorPos.y-ponto.y;

        if (ponto.x<0) or (ponto.x>janela.Width) or (ponto.y<0) or (ponto.y>janela.Height) then

        begin

                ponto.y:=-1;

                ponto.x:=-1;

        end;

        result:=ponto;

end;



// by André Feltrin Baldessar