crear una imagen

[Metralla]

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.

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;

Gracias.

[delphi.com.ar]

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:

Código Delphi [-]
  Image := TImage.Create(form1);
  with image do
  begin
    image.Picture.LoadFromFile('Z:\Pedro\rave\definitivo\iconos\camera.bmp');
    image.Parent := Self;
  end;

El parent es el control "padre" donde se alojará tu TImage.

Saludos!

[Metralla]

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.

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;

Muchas Gracias por la ayuda

[Metralla]

Lo he probado tanto con:
image.parent:= self;
como con
image.parent := form1;

[roman]

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

[delphi.com.ar]

Empezado por Metralla

¿No tendria que ponerle unas cordenadas o algo asi para decirle donde me tiene que crear el timage?

Sería lo correcto si quieres ubicar tu imagen en algún sitio en particular.
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!

[sanxpue]

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

Código Delphi [-]
procedure TForm1.ToolButton20Click(Sender: TObject);
begin
  image := timage.Create(form1);
  try
    begin
       with image do
       begin
         try
           Picture.LoadFromFile('Z:\Pedro\rave\definitivo\iconos\camera.bmp');
         except
           showmessage('direccion no');
         end;
         
           Parent := Self;
           Visible := true;
           Stretch := True; //para que se acode el image por que puedes
                             //andar creando pero su tamaño puede ser width = 0 y 
                            //height = 0
           
       end;
    end;
  except
    showmessage('no lo crea');
  end;
end;

[delphi.com.ar]

Empezado por sanxpue

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 hay algún problema para ubicar o cargar el archivo, la llamada LoadFormFile producirá un error. No creo que este sea el problema.