TImage: mit Mouse-wheel ein Bild vergrößern bzw. verkleinern

[Helmi]

Hallo,

Ich lade ein Bild in ein TImage.

Jetzt möchte ich mit dem Mousewheel das Bild vergrößern bzw. verkleinern

Weiss jemand wie man das machen könnte, denn das TImage hat ja kein mousewheel-Event?

[Helmi]

*push*

Hat keiner ne Ahnung wie man das oben machen könnte?

Ach ja, die Form hat ein MousewheelDown und MousewheelUp.

Nur weiss ich noch nicht wie man ein Bild (Picture) in einem Image von der Größe her verändern kann.

Ich hab mal folgendes probiert:

Code:

const
Prozent = 90;

Image1.Picture.Height := trunc(Image1.Picture.Height * Prozent / 100);
Image1.Picture.Width  := trunc(Image1.Picture.Width * Prozent / 100);

Nur wenn ich diesen Code compilieren will, dann bekomm ich die Meldung, dass man eine Nur-Lesen-Variable nicht beschreiben kann.

Wie kann man das machen?