Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, уважаемые эксперты!
Как сделать всплывающую подсказку Hint при наведении курсора на заголовок столбца DBGrid?
Как в ApplicationEvents в обработчике OnShowHint определить, на какой именно столбец наведен курсор?
Спасибо!

Вопрос задал: Цыцарев Вадим Николаевич (статус: Посетитель) Вопрос отправлен: 10 октября 2008, 13:11 Состояние вопроса: решён, ответов: 1.

Ответ #1. Отвечает эксперт: Мережников Андрей

Здравствуйте, Цыцарев Вадим Николаевич!
Чтобы определить над какой колонкой находится указатель мыши можно использовать следующее
var ScrPt, GrdPt: TPoint;

begin
ScrPt := Mouse.CursorPos;
GrdPt := DBGrid.ScreenToClient(ScrPt);
dbgrid1.MouseCoord(GrdPt.X, GrdPt.Y);
Cell: TGridCoord;
case cell.x of
0: application.hint:='Колонка 0';
1:application.hint:='Колонка 1';
....
end;
можно вместо application.hint использовать dbgrid1.hint

Ответ отправил: Мережников Андрей (статус: Абитуриент) Время отправки: 10 октября 2008, 13:55 Оценка за ответ: 5

Мини-форум вопроса

13 мая 2013, 14:16: Статус вопроса изменён на решённый (изменил модератор DNK): На 5

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.