Ver Mensaje Individual
  #2  
Antiguo 12-11-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola nickolas.

En principio, estas haciendo mal la creación del TImage y la asignación del TBitmap a la misma.

Un ejemplo:
Código Delphi [-]
...
procedure CrearComponente(aForm: TForm; Bitmap: TBitmap;
  const aLeft,aTop: Integer);
var
  Fondo:Timage;
begin
  Fondo:= TImage.Create(aForm);
  with Fondo do
  begin
    Parent:= aForm;
    Left  := aLeft;
    Top   := aTop;
    Picture.Bitmap.Assign(Bitmap);
    //...
  end;
end;

//Llamada ejemplo:
procedure TForm1.Button1Click(Sender: TObject);
var
  BM: TBitmap;
begin
  BM:= TBitmap.Create;
  try
    BM.LoadFromFile('C:\Users\User\Pictures\LogoRad.bmp');
    CrearComponente(Form1, BM, 15, 25);
  finally
    BM.Free;
  end;
end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita