Foros Club Delphi - Violacion de acceso

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Violacion de acceso (https://www.clubdelphi.com/foros/showthread.php?t=76516)

Violacion de acceso

Hola a todos;

tengo un problema del cual no encuentro solucion...

tengo un imagelist con varias imagenes, con un numero aleatorio, tomo una imagen de el y se la asigno a un componente de imagen, eso funciona bien la primera vez... pero intente asignarle al evento ON CLICK de la imagen la misma rutina para que el usuario cambiara de imagen y es ahi cuando obtengo el error de violacion de acceso.

esta es la rutina:

Código:

procedure TFmenu.Image1Click(Sender: TObject);

var

     x : integer;

     bmp : Tbitmap;

begin

     x:= GetRandomInt(Rotacion.Count);

     if x<12 then

     begin

          Rotacion.getbitmap(x,bmp);

          Image1.Picture.Bitmap.assign(bmp);

     end;

end;

Alguien tiene alguna sugerencia para corregir este problema?...

PD el mensaje de error aparece al ejecutar la linea: Rotacion.getbitmap(x,bmp);

Hola Willo.

Lo que entendí: Tenes un TImageList con imágenes y querés que estas se vayan mostrando al azar en un TImage cada vez que hagan click sobre él.

Si es así, proba de este modo:

Código Delphi [-]procedure TForm1.Image1Click(Sender: TObject);
begin
  Image1.Picture:= nil;
  ImageList1.GetBitmap(Random(ImageList1.Count), Image1.Picture.Bitmap)
end;

Un saludo.