Форум: "Базы";
Текущий архив: 2003.09.08;
Скачать: [xml.tar.bz2];

Вниз

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?

---

← →
Johnmen   (2003-08-15 14:38) [5]

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

---

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

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

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2003.09.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.009 c