Sería muy fácil incluir una imagen, tan solo con poner un fichero bmp en un componente Timage que ocupe la totalidad de la ventana especificando la propiedad alClient, pero lo que conseguimos con ello es dibujar sobre el fondo que Windows previamente ha utilizado. Dependiendo de lo que se pretenda hacer puede provocar parpadeos al tener que esperar que se ejecute el mensaje del Sistema Operativo mas la a actuación de nuestro componente, por ello es preferible invalidar la acción de Windows.

El ejemplo siguiente lo escribió Ian Marteens en uno de sus libros, y consiste en incluir en la declaración de la clase un procedimiento que intercepte en mensaje

 
Tform1 = class(Tform)
 
private
procedure WMEraseBkgnd(var Msg:TMessage);
   message WM_ERASEBKGND;
 
 
 

Y el procedimiento es:

 
procedure Tform1.WMEraseBkgnd(var Msg:TMessage);
 
begin
   Msg.Result:=1;
end;
 
 
 

Una respuesta 0 al mensaje significa que debe dar fondo Windows a la ventana, en este caso se le indica que no lo haga.