Klicken in Bereich auf Image

[RedOne]

Delphi-Quellcode:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  rgn : HRGN;
  plist : array [0..4] of TPoint;
begin
  plist[0] := Point(104,150);
  plist[1] := Point(147,148);
  plist[2] := Point(151,287);
  plist[3] := Point(98,284);
  rgn := CreatePolygonRgn(plist,4,Winding);
  try
    if (rgn <> 0) and (PtInRegion(rgn, x, y)) then
      ShowMessage('in');
  finally
    DeleteObject(rgn);
  end;
end;

Zufrieden?