Ver Mensaje Individual
  #3  
Antiguo 20-05-2004
Metralla Metralla is offline
Miembro
 
Registrado: may 2004
Ubicación: Palma de Mallorca
Posts: 17
Reputación: 0
Metralla Va por buen camino
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;
Muchas Gracias por la ayuda
Responder Con Cita