Usar Canvas en Frames

[vani]

Hola.

Mi objetivo es tener un frame que se muestre transparente sobre la form que lo contiene. Esta form tiene de fondo un Timage, o bien dibujada directamente en el canvas una imagen.

Las propiedades del frame ParentColor, ParentBackGround y demás no funcionan si el form tiene una imagen de fondo.

He conseguido crear un canvas para el frame:

Código Delphi [-]
   public
    fcanvas:Tcanvas;
     procedure crea_canvas;
   end;
 
 procedure tframe2.crea_canvas;
 begin
   FCanvas := TControlCanvas.Create;
   TControlCanvas(FCanvas).Control := Self;
 end;

Y así puedo dibujar sobre el frame,

Código Delphi [-]
 frame.fcanvas.copyrect(rectsource,imagen.canvas,rectdest);

Así consigo que el frame dibuje de fondo lo mismo que tiene el form.
El problema es que cuando algún componente dentro del frame se redibuja entonces no se redibuja el fondo en el frame que se refresca. P.e. con un speedbutton con flat a true, se muestra bien al principio, pero si pasas el puntero sobre él, entonces se redibuja el speedbutton, y se queda con el fondo plano sin imagen.

Hay alguna manera de poder redibujar el frame a la manera del evento OnPaint del TForm?? Para poder refrescar el fondo del frame.

Un saludo.