Problemas Creando componentes en tiempo de ejecucion

[nickolas]

Hola a todos.

hoy les traigo una consulta,¿Como Crear Componentes en tiempo de ejecucion? por que yo lo estoy haciendo de la siguiente forma y no siempre me sale el error de Access violation Adress

Procedure CrearComponente();
var
Fondo:Timage;
Begin
Fondo.Create(Formulario); // el formulario Propietario
Fondo.Picture.Assign(Bitmap); // asigno la imagen que va a mostrar
Fondo.BringToFront;
Fondo.Show;//Muestro El Timage
End;

ERROR:
'access violation at adress'


Espeero sus respuestas. Gracias.

[ecfisa]

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.

[nickolas]

Gracias por la ayuda me sirvio, mucho tu respuesta.

Gracias por la pronta respuesta.