Bug bei Auswertung: if (Zahl in [min..max]) then .. ??

[Michael II]

Nutze ptInRect. Damit kannst du checken, ob ein Punkt innerhalb eines Rechtecks liegt.

Beispiele:

Delphi-Quellcode:

  showmessage( ptInRect( Rect( 238,26,709,551 ), Point( 240,30 ) ).ToInteger.ToString );
  showmessage( ptInRect( Rect( 238,26,709,551 ), Point( 229,400 ) ).ToInteger.ToString );