Hint в DBgrid

← →
FREEMAN © (2003-08-15 12:15) [0]

Доброго всем времени суток, Мастера!!!
У меня возникла одна проблема, как показать хинт для любой ячейки DBGrid"a при наведении на нее (ячейку) указателя мыши.
Если можно пример с путевым объяснением. Заранее благодарен!

← →
roottim (2003-08-15 12:27) [1]

примерно так
type THdbgrid = CLASS (TDBGRID);

грид назавем gr2
а это его обработчик на мышку
только вместо вывода в заголовок делашь хинт...

procedure TForm1.gr2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var call: TGridCoord; vActiveRec: Integer; begin call := gr2.MouseCoord(X,Y); Caption := Format("ROW: %d COL: %d ActiveRec: %d BufCount: %d RecCount: %d" , [call.Y, call.X, thdbgrid(gr2).DataLink.ActiveRecord, thdbgrid(gr2).DataLink.BufferCount, thdbgrid(gr2).DataLink.RecordCount]); if (call.Y > 0) and (call.X > 0) then begin vActiveRec := thdbgrid(gr2).DataLink.ActiveRecord; thdbgrid(gr2).DataLink.ActiveRecord := call.Y - 1; caption := thdbgrid(gr2).DataLink.Fields[call.X - 1].DisplayText; thdbgrid(gr2).DataLink.ActiveRecord := vActiveRec; end;

← →
roottim (2003-08-15 12:33) [2]

лишнее влезло...
а вообще в гриде Димки Большакова от EhLib ToolTip вроде организован... какой смысл в велосипеде?
procedure TForm1.gr2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var call: TGridCoord; vActiveRec: Integer; begin call := gr2.MouseCoord(X,Y); if (call.Y > 0) and (call.X > 0) then begin vActiveRec := thdbgrid(gr2).DataLink.ActiveRecord; thdbgrid(gr2).DataLink.ActiveRecord := call.Y - 1; caption := thdbgrid(gr2).DataLink.Fields[call.X - 1].DisplayText; thdbgrid(gr2).DataLink.ActiveRecord := vActiveRec; end;

← →
FREEMAN © (2003-08-15 14:19) [3]

Большое спасибо!!! А где можно достать EhLib ToolTip?

← →
FREEMAN © (2003-08-15 14:19) [4]

Большое спасибо!!! А где можно достать EhLib ToolTip?

В инете, как обычно...:)
А ToolTip - это свойство...

← →
roottim (2003-08-15 15:37) [6]

http://www.farpost.ru/personal/dmitryb/RUS/default.htm

Hint в DBgrid Найти похожие ветки