Click en statusbar

[[seoane]]

Empezado por Novás

Muchas gracias a los dos, he tenido que optar por la solución de Bicho ya que la de Seone me da un error en

if PtInRect(R,Point(x,y)) then

algo con la coma dentro del Point.

¿Exactamente que error te da?. Según la definición de la función Point no debería de haber ningún problema siempre que X e Y fueran integer.

Código Delphi [-]
  function Point(AX, AY: Integer): TPoint;