Подсказка к каждой строке в DBGrid

[k1r1ch]

У меня есть DBGrid, подключенная к таблице БД. Как сделать Hint (а лучше BalloonHint) к каждой строке из БД? Информация будет браться в самой базе данных из MEMO-поля. Свойство Hint самой DBGrid не подходит, так как таким образом можно сделать только подсказку на выделенную строку. Если сделать подсказку к каждой строке невозможно, объясните хотя бы, как ограничить появление подсказки самой DBGrid зоной выделенной строки?

[Stilet]

Ну если хватит только текущей строки то:

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var gk:TGridCoord;
begin                        DBGrid1.ShowHint:=true;

 gk:=DBGrid1.MouseCoord(x,y);
 if (gk.Y<>-1) then begin
  DBGrid1.Hint:=DBGrid1.DataSource.DataSet.Fields[gk.x-1].AsString;
  Application.ActivateHint(Mouse.CursorPos);
 end;
end;

Иначе нужно долгими путями превращать DBGrid в CustomGrid, дабы добраться до ячейки.

[k1r1ch]

Как понять:

DBGrid1.Hint:=DBGrid1.DataSource.DataSet.Fields[gk.x-1].AsString;

При таком варианте в подсказку записывается число 3 для 1-ой строки, 4 для 2-ой и т.д.
Я всегда обращаюсь к таблице так:

Grid.Hint := DBForm.TableTip.AsString;

Тогда действительно выводит подсказку.
Только она появляется на каждой строчке, т.е. если выделена первая строка, то ее подсказка выводится на самой строке, при переводе мыши на 2-ую строку подсказка пропадает и тут же появляется (все таже) и т.д.
Как это исправить и как сделать задержку перед появлением подсказки?
И еще, что такое TGridCoord?

[Stilet]

Как это исправить и как сделать задержку перед появлением подсказки?

смотри в сторону Application.HintPause

При таком варианте в подсказку записывается число 3 для 1-ой строки, 4 для 2-ой и т.д.

Мне лично это ни о чем не говорит.

И еще, что такое TGridCoord?

Что хелп уже отменили? Это номер ячейки в координатах.

[k1r1ch]

Сейчас подсказка выводится на каждой строке, причем текст подсказки от выделенной строки. Мне нужно, чтобы подсказка выводилась только на выделенной строке, как это сделать?

Все, сделал!

[Kotofff]

Если обычную подсказку, то вот посмотри : http://www.delphisources.ru/pages/fa...or_dbgrid.html

... блин не успел ... надо чаще обновлять страницу ...

[k1r1ch]

Я вот как сделал, по моему даже проще:

procedure TMainForm.GridMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var gk: TGridCoord;
begin
 gk := Grid.MouseCoord(x,y);
 if (gk.Y = DBForm.Table.RecNo) and (gk.X = 0) then
 begin
   Grid.ShowHint := true;
   Grid.Hint := DBForm.TableTip.AsString;
   Application.ActivateHint(Mouse.CursorPos);
 end
 else Grid.ShowHint := false;
end;