Показать сообщение отдельно
  #2  
Старый 13.10.2008, 01:17
ApxaHGe1 ApxaHGe1 вне форума
Активный
 
Регистрация: 08.04.2008
Адрес: Нижний новгород
Сообщения: 311
Репутация: 38
По умолчанию

Код:
procedure TForm8.DBGrid1DblClick(Sender: TObject);
begin
Jpg:=TJPegImage.Create;
Jpg.Assign(DBGrid1.Columns.Items[4].Field);
Form9.Image1.Picture.assign(jpg);
Form9.Memo2.Text:=DBGrid1.Columns.Items[5].Field.AsString;
Form9.Show;
end;
Ответить с цитированием