OnClick auf Image

[ste_ett]

Dafür gibt's ne API-Funktion.

Delphi-Quellcode:

var
  r: TRect;
  p: TPoint;
begin
  r.x := ...;
  r.y := ...;
  
  p.left := 200;
  p.top := 200;
  p.right := 300;
  p.bottom := 300;

  if (PtInRect(r, p)) then
  begin
    ShowMessage('ja');
  end
  else
  begin
    ShowMessage('nein');
  end;
end;