mover imagen

[ZayDun]

hola, estoy volviendome algo paranoico con un codigo.. y es que tengo un label1.caption que da como resultado un 'Image' seguido de un numero aleatorio

ejemplo.. label1.caption:='Image1';

ese "Image1" pertenece a el nombre de una imagen, lo que me gustaria hacer es que el contenido del Label1.Caption se vaya a un lado de la pantalla en este caso image1.Top:=200;.

yo he probado asi..

If Label1.Caption='Image1' Then
Image1.Top:=200;

haciendo esto me funciona perfectamente pero el problema es que son 50 imagenes lo que tengo y queria saber antes de programar
nada mas si es posible hacerlo sin tener que escribir uno a uno.

[Northern]

Se puede hacer con:


Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
I := ExtractNumber(Label1.Caption);
with TImage(FindComponent('Image'+IntToStr(I))) do
Top := 200;
end;





ExtractNumber e IntToStr no son realmente necesarios pero los puse.


Saludos

[ZayDun]

acabo de probar el codigo y me da error..

" No declarado el identificador ExtractNumber" :S

[Northern]

Empezado por ZayDun

acabo de probar el codigo y me da error..

" No declarado el identificador ExtractNumber" :S

ExtractNumber() es una función que no viene en las VCL pero como su nombre indica se supone que extrae el número de la imagen.

Parece ser que las numeras: Image1, Image2, ...., Image200 ó algo por el estilo pues hay muchas maneras de extraer esos dígitos -1, 2, ..., 200- de Image. Por ejemplo:

Código Delphi [-]
function ExtractNumber(const aImageSt: string): Integer;
begin
  Result := IntToStr(Copy(aImageSt, 6, Length(aImageSt)));
end;

Saludos