Foros Club Delphi - Uso de imagenes

Por lo que se desprende de la pregunta, puede ser que con esta información te sirva:

Basta con que lo 'pintemos' en el evento OnPaint de la form

La idea es la siguiente:

Definir una variable TBitmap global a toda la form, en donde cargaremos la imagen a poner como fondo, es decir, la definimos en el var de la form:

var
Form1: TForm1;
Fondo:TBitmap;

En el evento OnCreate de la form, inicializamos nuestra variable y cargamos en ella el bitmap:

Código:

         procedure TForm1.FormCreate(Sender: TObject);

         begin

           {Creamoa la variable}

           {Create our bitmap variable}

           Fondo := TBitmap.Create;

           {Cargamos en ella una imagen}

           {Load a image file into our bitmap}

           Fondo.LoadFromFile('c:\kk\q3.bmp');

         end;



   Y en el evento OnPaint, 'rellenaremos' el fondo de la form con nuestro bitmap: 



         procedure TForm1.FormPaint(Sender: TObject);

         var

           filas,columnas : Integer;

         begin



           for filas:=0 to Trunc(Height/Fondo.Height) do

             for columnas:=0 to Trunc(Width/Fondo.Width) do

               Canvas.Draw(columnas*Fondo.Width,

                           filas*Fondo.Height,

                           Fondo);

         end;





Para finalizar, antes de salir, debemos liberar nuestra variable Bitmap, así que lo

haremos en el evento OnDestroy de la form: 



         procedure TForm1.FormDestroy(Sender: TObject);

         begin

           {Liberamos el bitmap}

           {Free our bitmap}

           Fondo.Free;

         end;

Un Saludo.