Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.31;
Скачать: CL | DM;

Вниз

Hints исключительно на WIN API   Найти похожие ветки 

 
Klev.J   (2002-09-09 19:30) [0]

Hi all! Вот какая проблема: Пишу прогу исключительно на WIN API. Создаю окно, на нем - кнопку. Хотелось бы добавить к этой кнопке Hint, точнее TOOLTIP.
Делаю следующее:
getwindowrect(button,r);
with TI do
begin
cbSize:=SizeOf (TI);
uFlags:=TTF_CENTERTIP;
hWnd:=button;
uId:=0;
rect.Left:= R.Left;
rect.Top:= R.Top;
rect.Right:= R.Right;
rect.Bottom:= R.Bottom;
hInst:=0;
lpszText:=Pchar("I am here!");
end;
SendMessage (HintWnd,TTM_ADDTOOL,0,lparam(@TI));


И ни фига!
Hint не показывается.
Почему он не показывается? Что не так?


 
KK   (2002-09-14 15:38) [1]

Может быть проблема в cbSize?
Попробуй где нибудь поискать истинный размер структуры TI,
не используя функцию Sizeof().


 
Klev.J   (2002-09-20 16:34) [2]

Проверял. Функция SizeOf возвращает 44.
Пробовал ставить другие значения, но ничего не получилось.
Всплывающие подсказки никак не всплывают. Что же делать?



Страницы: 1 вся ветка

Текущий архив: 2002.10.31;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
3-101127
Fran
2002-10-10 09:33
2002.10.31
Переход с IBX 4.52 на IBX 5.03 - нет свойства QInsert и т.п.


14-101442
_Санёк_
2002-10-10 15:28
2002.10.31
Классный форум!!! (модераторам)


1-101363
som
2002-10-21 11:12
2002.10.31
Excel и Delphi


1-101371
Vladislav
2002-10-21 11:51
2002.10.31
Привязка к компу.


1-101307
Apay
2002-10-19 17:49
2002.10.31
Bitmap ->Grayscale