procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
coord: TGridCoord;
begin
coord := DBGrid1.MouseCoord( X, Y );
end;
Курсор над DBGrid. Какой title?
Привет всем !
Есть DBGrid, в который загружена БД. Хочу сделать ,чтобы при наведении на название столбца весь столбец менял цвет (или сам титульник как-нибудь выделялся, как в диспетчере задача в процессах :) ). Как узнать, над каким компонентом мышка - можно. А вот как именно узнать, над каким столбцом она находится (просто находится, без события OnMouseDown) ??
Можно,Конечно, сравниват ькоординаты курсора и определённого столбца. Но как это некрасиво. Надеюсь, что есть и другой вариант.
Есть DBGrid, в который загружена БД. Хочу сделать ,чтобы при наведении на название столбца весь столбец менял цвет (или сам титульник как-нибудь выделялся, как в диспетчере задача в процессах :) ). Как узнать, над каким компонентом мышка - можно. А вот как именно узнать, над каким столбцом она находится (просто находится, без события OnMouseDown) ??
Можно,Конечно, сравниват ькоординаты курсора и определённого столбца. Но как это некрасиво. Надеюсь, что есть и другой вариант.
Код:
MouseCoord преобразует координаты мыши в координаты ячейки в сетке, над которой находится курсор. Если под курсором нет ячейки, то значения coord будут -1. На основе этого уже придумывай дальнейший алгоритм подсветки. :)
Спасибо, попробую. Сейчас просто узнал, что исправить нужно в текущей программе, сроки поджимают, пока эту идею отложу напоследок. А пока создам тему про поиск...