FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
crear una imagen
hola a todos.
Como podria hacer para crear una image al apretar un boton de un toolbar. No cargar la imagen y que se ponga en un image al apretar el boton sino que me haga las dos cosas directamente. Yo tengo puesto este codigo , si no podeis reponderme a ver si me podeis decir algun manual donde los explique o algo asi. Código:
procedure TForm1.ToolButton20Click(Sender: TObject); begin image := timage.Create(form1); with image do begin image.Picture.LoadFromFile ('Z:\Pedro\rave\definitivo\iconos\camera.bmp'); end; end; |
#2
|
||||
|
||||
Hablar de "crear una imagen" es algo ambiguo... Tu quieres crear un objeto TImage y mostrarlo (supongo)... Lo único que le faltaría a tu código, es asignarle un Parent a tu TImage:
El parent es el control "padre" donde se alojará tu TImage. Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
|||
|
|||
No lo entiendo
Gracias delphi.com.ar si es el objeto timage lo que quiero crear
no sabia bien como explicarlo y se me habia pasado por alto el detalle del parent. Pero aun asi no me la crea, le he puesto unos try except para ver si me entraba bien en el with y parece que si. ¿No tendria que ponerle unas cordenadas o algo asi para decirle donde me tiene que crear el timage? Es que si no no entiendo como no me lo crea. Código:
procedure TForm1.ToolButton20Click(Sender: TObject); begin image := timage.Create(form1); try begin with image do begin try image.Picture.LoadFromFile('Z:\Pedro\rave\definitivo\iconos\camera.bmp'); except showmessage('direccion no'); end; image.Visible := true; image.Parent := form1; end; end; except showmessage('no lo crea'); end; end; |
#4
|
|||
|
|||
Lo he probado tanto con:
image.parent:= self; como con image.parent := form1; |
#5
|
||||
|
||||
Yo probé tu código anterior modificando únicamente el nombre del archivo bmp y me funcionó perfecto. Debe haber algo más en tu código que está afectando ésta parte.
¿Has intentado probar este código en un proyecto vacío? Si ahí funciona entonces mira de ir tratando de igualar las condiciones con el proyecto original para ver qué es lo que sucede. // Saludos |
#6
|
||||
|
||||
Cita:
Recuerda que el Parent es el control donde se ubicará el tuyo, supongamos: si Form1 tiene un panel con alineación alClient, es probable que tu imagen no se vea porque quede debajo de este panel. En este caso deberías escoger otro control para ubicar la imagen. Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#7
|
|||
|
|||
Haber si te funciona con esto
Primero si vas a usar with quitale Image. a las propiedades que le
pertenezca o de plano no uses with Segundo hay que ver si Z no es una unidad de red por que luego cuesta trabajo llamarlas por que el servidor puede estar trabajando en otro proceso Si hasta ahi vamos bien entonces
__________________
saludos desde Puebla Mexico.. asanxt@hotmail.com "como siempre a sus ordenes y siempre con buena cara" 'lolita me excitas, perversa piel de melocotón' |
#8
|
||||
|
||||
Cita:
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
|
|
|