Форум: "KOL";
Текущий архив: 2007.04.01;
Скачать: [xml.tar.bz2];
ВнизКак настроить подсказки? Найти похожие ветки
← →
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 вся ветка
Форум: "KOL";
Текущий архив: 2007.04.01;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.043 c