| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как настроить подсказки?

DevilDevil ©   (2006-06-15 20:45:00) 

Изменяю свойство Hint, толку нет. Как решать?

---

ANTPro   (2006-07-11 23:44:00) [1]

> [4] MTsv DN ©   (16.06.06 14:53)

Не хватает кой чего:

   SendMessage(HintW,TTM_TRACKACTIVATE,Integer(LongBool(False)),Integer(@TI));
   SendMessage(HintW,TTM_DELTOOL,0,DWORD(@TI));
   TI.lpszText:=TT;
   SendMessage(HintW,TTM_ADDTOOL,0,DWORD(@TI));
   SendMessage(HintW,TTM_TRACKACTIVATE,Integer(LongBool(True)),Integer(@TI));

Кстати у меня это глючит нарисованное на канве если убрать манифест EXEшника

---

ECM   (2006-06-16 16:15:00) [2]

> Не а, там точка в адрес попала

Точку я видел... :)
По http:// (TCP/80) не грузилось... Вроде сейчас всё в порядке

---

mdw   (2006-06-16 16:00:00) [3]

> HTTP-сервер на сайте похоже лежит :(

Не а, там точка в адрес попала

---

MTsv DN   (2006-06-16 14:53:00) [4]

А еще есть WinAPI:

var
 HintWnd, Main : HWND;
 TI : TToolInfo;
...
procedure ...FormCreate(Sender: PObj);
begin
Main:= frmMain.Form.GetWindowHandle;
HintWnd := CreateWindowEx(0, TOOLTIPS_CLASS, '', 0, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, Main, 0, HInstance, NIL);
end;

procedure ShowToolTips(Sender: PControl; TT : PChar);
begin
with TI do
   begin
    cbSize := SizeOf(TI);
    uFlags := TTF_SUBCLASS;
    hWnd := Sender.GetWindowHandle;
    uId := 0;
    rect.Left := Sender.ClientRect.Left;
    rect.Top := Sender.ClientRect.Top;
    rect.Right := Sender.ClientRect.Right;
    rect.Bottom := Sender.ClientRect.Bottom;
    hInst := 0;
    lpszText:=Pchar(TT);
   end;
  SendMessage(HintWnd, TTM_SETDELAYTIME, TTDT_INITIAL, DWORD(frmMain.HintDelay));
  SendMessage(HintWnd, TTM_ADDTOOL, 0, DWORD(@TI));
end;

procedure ...MouseMove(Sender: PControl; var Mouse: TMouseEventData);
begin
ShowToolTips(Sender, 'Bla-Bla-Bla');
end;

С Уважением MTsv DN

---

ECM   (2006-06-16 14:03:00) [5]

HTTP-сервер на сайте похоже лежит :(
Но FTP-доступ есть ...
Есть же официальный сайт KOL
http://bonanzas.rinet.ru/r_adds.htm#Components_Form

---

DevilDevil   (2006-06-16 12:57:00) [6]

mdw ©   (16.06.06 10:26) [1]

Ни чего там нет, кроме сообщения об ошибке :(

---

mdw   (2006-06-16 10:26:00) [7]

Смотри Всплывающие подсказки на http://www.kolnmck.ru/components/files_formext.shtml.Там несколько вариантов есть.

---

Наверх