Transparentes Bild soll nur an bestimmten stellen angeklickt

[turboPASCAL]

@Robert Marquardt JVCL Schleichwerbung ?

@Puhbaehr Warum nicht einfach das MousUp- bzw. MouseDown-Ereignis des Images verwenden ?

Delphi-Quellcode:

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if (Shift = [ssRight]) and (Image1.Canvas.Pixels[X, Y] <> clWhite) then
  begin
    // Was dann gemacht werden Soll...
    // ...
  end;
end;

Ich verwende meistens die Farbe clFuchsia (RGB = 255, 0, 255) für Transparenz, da clFuchsia nicht so oft vorkommt. IMHO ist clWhite ist nicht immer die beste Wahl.

// Edit:

Zitat von Puhbaehr:

PS: An einen Mod: Kann ich auch Textformatierungen innerhalb der Codeformatierung anwenden? (z.B. Hervorheben durch Fettschrift oder farblich hervorheben)

Ich nix Mod, aber : [color] innerhalb [code]/[delphi]