TImage Paint To mehrmals aufrufen

[cltom]

Hallo DPler,

mittels PaintTo möchte ich panels auf den canvas eines Timage malen. Das funktioniert auch. Aber genau einmal nur. Jeder weitere aufruf wird ignoriert.

Im Grunde soll es so aussehen:

Delphi-Quellcode:

case ComboBox1.ItemIndex of
  0 : Panel1.PaintTo(Image1.Canvas,0,0);
  1 : Panel2.PaintTo(Image1.Canvas,0,0);
  2 : Panel3.PaintTo(Image1.Canvas,0,0);
end;

Wie gesagt, das erste mal klappts, jeder folgende wird ignoriert. Offenbar wird der Canvas nicht übermalt, warum?

dank und gruß
tom