OnClick auf Image

[ste_ett]

Zitat von Cheffu:

Muss da nicht irgendwie noch
with Image1.Canvas do oder sowas rein? weil da steckt ja nicht drin bei was er dies amchen soll oder?

Nein, da es für die Berechnung unerheblich ist, wo genau dieses Rechteck liegt und wofür es genutzt wird.
Wichtig sind nur die Größe und Lage des Rechtecks, sowie die Koordinaten des Klicks.

Kleines Beispiel, um die X- und Y-Koordianten des Klicks herauszufinden.
Alternativ könnte man auch "OnMouseDown()", wenn das Drücken der Taste reicht, dann bekomtm man die Koordinaten direkt über zwei Parameter der Funktion.
Wenn es ein richtiger Klick (Taste runter und wieder hoch) sein soll/muss, bleibt nur OnClick().

Delphi-Quellcode:

procedure TForm1.Image1Click(Sender: TObject);
var
  P: TPoint;
  X, Y: Integer;
begin
  if (GetCursorPos(p)) then
  begin
    P := ScreenToClient(P);
    X := P.X - Image1.Left;
    Y := P.Y - Image1.Top;
  end;
end;