Ver Mensaje Individual
  #12  
Antiguo 27-07-2003
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
Para la primera opción yo haría lo siguiente, colocar un Timage en el lugar apropiado del formulario.

Y en el evento AfterScroll del Ttable poner este código:

Código:
procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
  Try
  Image1.Picture.LoadFromFile(Table1Direccion.Value);
  Except
  Image1.Picture.LoadFromFile('D:\pruebas\nofoto.bmp');
  end;
end;
Direccion en este ejemplo sería el campo de la tabla Clientes aquí Table1, en donde guardaríamos la ubicación y el nombre de la foto a cargar:

C:\Fotos\Pepe.bmp por ejemplo.

NoFoto sería un archivo llamado Nofoto.bmp, en el que yo colocaría un aspa de color rojo, para mostrar cuando el cliente no tenga foto o en el peor de los casos se produzca un error, de ahí la estructura:
Código:
Try
Except
end;
Un Saludo.
Responder Con Cita