Cita:
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;