Hint Ы

← →
bob5 (2002-01-04 06:06) [0]

У меня есть елемент типа TCustomGrid, Не все значения ячеек видны на экране так вот хотелось бы сделать к таким ячейкам при наведении крысы Hint"Ы. помогите хотябы советом.

← →
Vovchik (2002-01-04 13:09) [1]

Ну, ты можешь на событии OnMouseMove определять где курсор находится мышиный в клиентских координатах. Потом, можно перевести это представление в номер ячейки (строка, столбец), т.к. ты знаешь размеры ячеек и есть свойства TopRow и LeftCol или что-то типа этого. Далее я делал своё окно класса THintWindow (см. хелп из Дельфей). Выдираешь данные из ячейки своего грида, которую сам определил и выводишь с помощью THintWindow:

var
HW:THintWindow; //глобальная, её нужно создать, к примеру в OnFormCreate

var
p:TPoint;
begin
//x,y - это клиентские координаты левого верхнего угла хинта (ячейки грида)
p:=StringGrid.ClientToScreen(Point(x,y)); //перевели в абсолютные координаты экрана
p.x:=p.x-1; // это может понадобиться,
p.y:=p.y-3; // чтобы точно выставить окно хинта
r:=HW.CalcHintRect(Screen.Width,lb.Items[i],nil); //опр. область хинта
OffsetRect(r,p.x-r.Left,p.y-r.Top); //сдвинули, чтобы она была над ячейкой
HW.ActivateHint(r,StringGrid.Cells[i,k]); // i,k - определённая ранее ячейка
//HW.ReleaseHandle; - это чтобы убить хинт
end;

Замечу, что используя своё хинтовое окно можно менять цвет его фона, шрифт и прочие полезные вещи. Я такое делал с TComboBox"ом и TListBox"ом. Должно и со стринггридом работать.

А вот что-то еще обсуждалось почти по поводу....
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1009354820&n=0

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