Mouse - obtento posicao atual

Top  Previous  Next

function PosMouse(AForm: TCustomForm): TPoint;

begin

  GetCursorPos(Result);

  Windows.ScreenToClient(AForm.Handle, Result); // Converte para a posicao relativa ao form

  // Se quiser relativa a tela remova a last line

end;