Форум: "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.018 c
3-9048            ARDA                  2002-02-05 20:31  2002.03.04  
Кодировка


1-9199            Taras                 2002-02-14 15:09  2002.03.04  
ZipMaster


14-9269           mvg_first             2002-01-10 20:32  2002.03.04  
Есть ли альтернатива АДО при доступе к MS SQL 2000


6-9244            rubin                 2001-12-11 11:57  2002.03.04  
Выход в интернет ч-з HTTPS Proxi


1-9192            BVS                   2002-02-13 17:52  2002.03.04  
Перехват нажатия мышки.