TImage-Änderung sofort anzeigen

[bombilein]

hallo,

mein erstes Posting und meine erste Frage.

Ich möchte, das ein TImage seine Farbe per Knopfdruck auf das TImage ändert und die neue Farbe soll sofort angezeigt werden.

Im OnClick-Event des TImages schreibe ich folgendes:

Delphi-Quellcode:

   TImage(Sender).Canvas.Pen.Color := clBlack;
   TImage(Sender).Canvas.Brush.Color := clRed;
   TImage(Sender).Canvas.Rectangle(0, 0, TImage(Sender).Width, TImage(Sender).Height);
   TImage(Sender).Repaint;

Die Farbe des TImages ändert sich, aber nicht sofort. Sondern z.B. wenn ich das Fenster minimiere und anschließend maximieren. Auch ändert es sich, wenn ich eine anderes Fenster über das TImage ziehe.

Aber die Änderung soll sofort angezeigt werden!

Danke im Voraus

bombi

[fkerber]

Hi!

Herzlich Willkommen in der DP.

Also bei mir geht dein Code.
Es wird sofort nach dem Klick rot (du hast ja auch ein Repaint drin).

Vielleicht probierst du einfach mal neues Projekt und dann nur Image und dort im OnClick deinen Code.

Ciao fkerber

[bombilein]

Hi fkerber,

wenn ich alle anderen Grafikelemente entferne geht es. Echt seltsam ....

aber danke for the hint

<edit>

jetzt hab ich es:

Es Die Grafikänderung schlägt nur durch, wenn es sich um ein Formular im FormStyle = fsNormal handelt. Bei fsMDIForm schlägt es nicht gleich durch.