Ver Mensaje Individual
  #2  
Antiguo 14-03-2008
Neeruu Neeruu is offline
Miembro
 
Registrado: oct 2007
Posts: 485
Reputación: 17
Neeruu Va por buen camino
Cool Cargar Imagen en un TImage

Hola como estas?
Para cargar una imagen en un TImage puedes hacerlo asi

Suponiendo que sea el evento Click de un TButton llamano btCargarImagen

Código Delphi [-]
procedure TForm1.btCargarImagenClick(Sender: TObject);
// si no tienes el timage en el formulario lo defino aca
var MyTImage :TImage;
// defino un Bitmap
MyBiTMap :TBitMap;
begin
  // si tienes el TImage en el formulario lo cargas asi
  // donde 'MyImage' es el TImage;
   MyImage.Picture.LoadFromFile('C:\MiImagen.Bmp');
  
  // si lo quieres crear en tienpo de ejecucion lo haces asi 
  //Creo el TImage que defini
  MyTImage := TImage.Create(Self);
  //aca asigno todas las propiedades al TImage que cree
  //y luego cargo la imagen
  MyTImage.Picture.LoadFromFile('C:\MiImagen.Bmp');
 
  //Tambien puedo cragar un Bitmap de esta forma;
  //creo el Bitmap que defini
  MyBiTMap := TBitMap.create;
  MyBiTMap.LoadFromFile('C:\MiImagen.Bmp');
  //y luego lo asigamos al TImage
 
  MyImage.Picture.BitMap := MyBitMap //MyImage o MyTImage dependiendo
 
end;

Saluda Atte Neeruu
Responder Con Cita