Eсть вопрос, у меня етсь таблица paradox, в ней есть графическое поле G, на форме есть компонент TDBImage, что нужно присвоить его свойству DataSource ? На данный момент все выглядит так :

procedure TForm1.FormCreate(Sender: TObject);
begin
   Table1.Active := False;
   Table1.DatabaseName := 'AliasG';
   Table1.TableName := 'testG';
   DataSource1.DataSet := Table1;
   DBGrid1.DataSource := DataSource1;
   Table1.Active := True;
   Table1.FieldByName('Picture').Visible := False;
   DBImage1.DataSource := DataSource1; {!! тут правильно ?}
   DBNavigator1.DataSource := DataSOurce1;

   DBGrid1.ReadOnly := True;
end;

ps что с тегами pascоde случилось ? если на кнопку нажимать но не добавляет тег к сообщению + сиснтаксис не подсвечивается ... или только у меня это ?

добавлено : я походу забыл указать DataField для DBImage :yes:

Так, вобщем этот момент настроил все сохраняется и загружается. Ништяк

DBImage1.DataSource := DataSource1;
   DBImage1.DataField := 'picture'

picture - имя поля формата Graphic

Еще по БД вопрос, пока не могу найти, может кто сразу может сказать как задать индекс для поля программно ?

добавлено : и еще как поймать момент не нажатия на заголовок столбца ? OnColEnter - не годится, нужно отлавливать момент именно нажатия на заголовок...

Таак, для первого вроде нашел, но какая-то лажа В OnCreate формы добавил :

Table1.IndexDefs.Clear;
Table1.IndexDefs.Add('Age', 'Age', [ixPrimary, ixUnique]);

первый параметр на солько я понял - имя индекса, второй - имя поля ...

но при попытке установить переустановить индекс :

procedure TForm1.Button1Click(Sender: TObject);
begin
   Table1.IndexName := 'age';
end;

выдает :
Index dose not exist
Index : age

(((((

Насколько я понял из Фаронова, простопереименовать индекс нельзя - IndexFieldsName автоматически затирается; его можно только сменить