Verständnisfrage: TImage

[SearchBot]

Wahrscheinlich liegt es an meinem Delphi (Embarcadero® Delphi® XE Version 15.0.3953.35171).

Der folgende Code wird bei Formshow aufgerufen und jedesmal wird das Bitmap korrekt geleert und ist wieder leer (Weiß).

Code:

 panel1.Picture.Bitmap:=nil;
 Can:=panel1.Picture.Bitmap;
 Can.SetSize(panel1.Width, panel1.Height);

Mit der Zeile ..clBlack mache ich mir das Bitmap schwarz (es ist dann auch leer). Das funktioniert aber nur beim 1.Aufruf. Male ich drin rum, schieße das Form und rufe es wieder auf (formshow) - ist/bleibt es in dem Zustand, als ich das Form geschlossen habe. Daß der Code durchgeht und nicht vielleicht vorher schon rausspringt, prüfe ich mit dem Showmessage.
Interessanterweise erscheint zuerst die Message und dann das Form...

Code:

 panel1.Picture.Bitmap:=nil;
 Can:=panel1.Picture.Bitmap;
 Can.Canvas.Brush.Color:=clBlack; 
 Can.SetSize(panel1.Width, panel1.Height);
 showmessage('Hallo');