Fórum onmousedown tcombobox #388350

{

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;