Ver Mensaje Individual
  #5  
Antiguo 22-09-2010
cloayza cloayza is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz, Chile
Posts: 947
Reputación: 25
cloayza Tiene un aura espectacularcloayza Tiene un aura espectacular
Aqui otra forma:

Código Delphi [-]
{En tu formulario donde esta la grilla creas este procedimiento...}
procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
       {Su funcion es cargar al image1 la foto que corresponde...}
       Image1.Picture.LoadFromFile...
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
       {En este evento al Master.Table1.AfterScroll  le asignas el procedimiento que creaste...}
      master.Table1.AfterScroll:=Table1AfterScroll;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
       {Cuando cierres el formulario, dejas en NIL el evento Master.Table1.AfterScroll}
       master.Table1.AfterScroll:=NIL;
end;

El problema que veo con el metodo de Caral es que te obliga a tener creado el formulario en donde esta el grid en todo momento, para que cuando se mueva de registro no dispare una exception.
Responder Con Cita