Ver Mensaje Individual
  #2  
Antiguo 28-05-2004
Avatar de gatosoft
[gatosoft] gatosoft is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Bogotá, Colombia
Posts: 833
Reputación: 22
gatosoft Va camino a la fama
Código:
var vImagen: TImage;

 if not OpenDialog1.Execute then
   exit;

vImagen:=TImage.Create(Self);
vImagen.Picture.LoadFromFile(OpenDialog1.FileName);
         {Cargas la imagen del archivo que escojas con el OpenDialog}

{Configuras las demas propiedades}

vImagen.top:= ...  
vImagen.Left:= ...

{etc}

vImagen.Parent:=Self; 
         {Le dices que el obejto que lo contiene es el formulario actual}
si en lugar de cargar la imagen de un archivo quisieras copiarla de alguna variable que tuvieras por ahi... por ejemplo en otro Timage, entonces:

Código:
  vImagen.Picture.Assign(image1.picture);
O si lo tuvieses en una variable de tipo TBitmap:

Código:
  vImagen.Picture.bitmap.Assign(VariableBMP);
Responder Con Cita