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;

[Bummi]

DeleteObject nicht vergessen sonst gehen Dir (Windows) irgendwann die Handels aus ...

[DeddyH]

Und eine Prüfung auf eine gültige Region wäre auch zu empfehlen.

Delphi-Quellcode:

  rgn := CreatePolygonRgn(plist,4,Winding);
  if rgn <> 0 then
    begin
      if PtInRegion(rgn, x, y) then
        ShowMessage('in');
      DeleteObject(rgn);
    end;

[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?

[DeddyH]

Japp, besser. Wobei ich mich allerdings frage, wo eine Exception auftreten soll, aber funktionieren sollte es so zuverlässig.

[edit] Wenn man aber mal davon ausgeht, dass es nicht beim ShowMessage bleibt, macht der Ressourcen-Schutzblock wahrscheinlich Sinn. [/edit]

[RedOne]

Irgendwo im Code der noch kommen wird
Ich bin der Meinung dass, wenn du willst, dass etwas wirklich freigegeben wird, mach ein try drumrum.

[DeddyH]

Da hat sich gerade Dein Post mit meinem Edit überschnitten