Delphi - PONER UNA IMAGEN EN FONDO FORMULARIO

 
Vista:

PONER UNA IMAGEN EN FONDO FORMULARIO

Publicado por pinsapo (1 intervención) el 24/01/2004 10:46:04
Me gustaría saber si hay algún componente o alguna propiedad de un formulario que permita poner una imagen de fondo en este (en el formulario)

Muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:PONER UNA IMAGEN EN FONDO FORMULARIO

Publicado por BigLuis (463 intervenciones) el 24/01/2004 13:25:09
Prueba esto
procedure TForm1.FormPaint(Sender: TObject);
var
JPG:TJPEGImage;
Rec:TRect;
begin
JPG:=TJPEGImage.Create;
JPG.LoadFromFile('1.jpg');
Rec:=Rect(0,0,Form1.ClientWidth,Form1.ClientHeight);
//Form1.Canvas.Draw(0,0,JPG);
Form1.Canvas.StretchDraw(Rec,JPG);
JPG.Free;
end;
Piensa que la imagen no se ajusta proporcionalmente asi esque tendras que ajustarla tu con codigo antes de cargarla, es decir hacer un Thumbnail del tamaño proporcional de Formulario.Tambien tendras que rescatar el evento OnResize para repintar la imagen, pero como ejemplo para empezar creo que te bastara
Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar