Klicken in Bereich auf Image

[RedOne]

Ich bastle mir das Schild gleich selbst... Danke, das hat geholfen

Für alle zukünftigen Threadbesucher. So kann's klappen:

Delphi-Quellcode:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  rgn : HRGN;
  plist : array [0..4] of TPoint;
begin
  Canvas.Brush.Color := clRed;
  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);
  if PtInRegion(rgn, x, y) then
    ShowMessage('in');
end;