Ver Mensaje Individual
  #9  
Antiguo 27-05-2018
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.734
Reputación: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Esto debes ponerlo en el lugar donde quieras que se ejecute la acción de mostrar la imagen.

Se me ocurre que lo quieres cada vez que cambie el producto. En ese caso lo puedes poner en el evento OnChange del Edit que muestre el código del producto.

También lo puedes poner en el OnClick de un botón para evitar que se carguen cada vez que muestras un producto diferente. Solo se cargará la imagen si el usuario lo pide, presinando el botń.

Código Delphi [-]
procedure TForm.BotonMuestraImagen.Click(Sender: TObject);
begin
   // Estas deberían ser variables globales, o globales a la unidad
   // Podrías cargarlas desde un fichero .ini que contenga la configuración/preferencias
   RutaImagenesProductos := 'C:\Imagenes\Productos\';
   RutaImagenesClientes := 'C:\Imagenes\Clientes\';

   CargarImagenDeArchivo(MiImagen, RutaImagenesProductos + Tabla.FieldByName('PRODUCTO').AsString + '.JPG')
end;
otń.
Responder Con Cita