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

Вниз

Как настроить подсказки?   Найти похожие ветки 

← →
DevilDevil ©   (2006-06-15 20:45) [0]

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

---

← →
mdw ©   (2006-06-16 10:26) [1]

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

---

← →
DevilDevil ©   (2006-06-16 12:57) [2]

mdw ©   (16.06.06 10:26) [1]

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

---

← →
ECM ©   (2006-06-16 14:03) [3]

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

---

← →
MTsv DN ©   (2006-06-16 14:53) [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

---

← →
mdw ©   (2006-06-16 16:00) [5]

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

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

---

← →
ECM ©   (2006-06-16 16:15) [6]

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

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

---

← →
ANTPro   (2006-07-11 23:44) [7]

> [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шника

---

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

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

Наверх

Память: 0.48 MB
Время: 0.054 c