Carregar Figura em um TImage

[edkardoso 0]

Tenho uma tabela visualizada através de um DBgrid que contém o campo ARQUIVO. Neste campo fica o nome do arquivo (*.jpg) que eu gostaria de carregar no TImagem a cada mudança de registro feita pelo usuário.Vcs podem me ajudar ?

[Teodorico 0]

Olá,Recebí isto num boletim, veja se ajuda:

Imagens no DBGrid. Enviada por Jean Richard Lima jeanrl@netsite.com.br    Para visualizar este exemplo em si basta adicionar:  Table: DatabaseName=BDDemos,   TableName=Country.db  DataSource: Linka o DataSet no Table  DBGrid: Linka o DataSource no DataSource acima  ImageList: Com um glyph da bandeira do Brasil e um da bandeira da Bolívia  Na propriedade do DBGrid DrawColumnCell use a procedure abaixo. Pronto é só compilar.  Este exemplo é genérico mas pode ser facilmente convertido para a necessidade de cada um.  procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;  DataCol: Integer; Column: TColumn; State: TGridDrawState);  begin    with Sender as TDBGrid do    begin      if Columns[DataCol].FieldName = 'Capital' then      begin        Canvas.FillRect(Rect);        if Columns[DataCol].Field.Value = 'Brasilia' then          ImageList1.Draw(Canvas,Rect.Left+4,Rect.Top,0,True)        else          if Columns[DataCol].Field.Value = 'La Paz' then        ImageList1.Draw(Canvas,Rect.Left+4,Rect.Top,1,True)      else        ImageList1.Draw(Canvas,Rect.Left+4,Rect.Top,2,True);      end    else      DefaultDrawColumnCell(Rect,DataCol,Column,State);    end;  end;

:lol:

[edkardoso 0]

Infelizmente não consegui entender o código. Sou iniciante. Alguém teria algo mais claro ?Importante: A imagem vai ser mostrada por um TImage e não um ImageList ou DBImage.Obrigado.