Ver Mensaje Individual
  #2  
Antiguo 10-09-2005
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.108
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Declara una variable de tipo "TBitMap". Instánciala antes de utilizarla, esto es, antes de cargar en ella una imagen (con su método "LoadFromFile", por ejemplo). Luego podrás usarla en un componente "TImage", por ejemplo. No olvides destruir la variable cuando ya no te sea precisa.

Código Delphi [-]
 var
   // Se declara así a modo de ejemplo, casi
   // sería mejor si la declaras como un miembro
   // privado del formulario en que la uses, si
   // es que la usas en un formulario.
   FImagen: TBitMap;
 
 procedure TForm1.FormCreate(Sender: TObject);
 begin
   // Instanciamos la variable
   FImagen := TBitmap.Create;
   // Cargamos un "bitmap" en la variable
   FImagen.LoadFromFile('C:\WINDOWS\Abanicos.bmp');
 end;
 
 procedure TForm1.BitBtn1Click(Sender: TObject);
 begin
   // Asignamos a un "TImage" el "bitmap"
   // que tenemos cargado en "FImagen".
   Image1.Picture.Assign(FImagen);
 end;
 
 procedure TForm1.FormDestroy(Sender: TObject);
 begin
   // Liberamos
   FImagen.Free;
 end;
__________________
David Esperalta
www.decsoftutils.com

Última edición por dec fecha: 10-09-2005 a las 18:25:42. Razón: Ampliación del texto (con un poco de código fuente)
Responder Con Cita