Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];




Вниз

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"ом. Должно и со стринггридом работать.



Alx2   (2002-01-04 13:57) [2]

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




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.015 c
14-9286           Alx2                  2002-01-18 08:09  2002.03.04  
Святая вода, или тема на злобу дня


4-9328            Evgeny                2001-12-22 12:53  2002.03.04  
URL


1-9132            Fast                  2002-02-17 09:45  2002.03.04  
Элементарная вещь


4-9337            Mush[RUM]             2002-01-05 01:41  2002.03.04  
Folder


1-9235            lightix               2002-02-15 15:09  2002.03.04  
Подскажите, как из программы передать данные в Excel?