FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
||||
|
||||
mover imagen
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. |
#2
|
|||
|
|||
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 |
#3
|
||||
|
||||
acabo de probar el codigo y me da error..
" No declarado el identificador ExtractNumber" :S |
#4
|
|||
|
|||
Cita:
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:
Saludos |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
mover imagen por un tiempo determinado | leodelca23 | Varios | 1 | 28-03-2007 07:54:13 |
Mover Imagen | jorgito.crazy | Gráficos | 15 | 05-07-2006 15:34:29 |
Mover una imagen encima de otra | maravert | Gráficos | 2 | 24-02-2005 01:04:45 |
Impedir mover el form y redimensionar al mover barra tareas | jealousy | API de Windows | 0 | 15-06-2004 12:58:05 |
mover bitmap | fabriciof | Gráficos | 2 | 08-04-2004 17:29:33 |
|