Текущий архив: 2004.11.14;
Скачать: CL | DM;
Вниз
Не появляются подсказки TOOLTIP на TOOLBAR Найти похожие ветки
← →
Comp © (2004-10-05 23:25) [0]Здравствуйте, уважаемые мастера. Люди добрые, никак не пойму, что за глюк. Вот код:
procedure WndProc_OnNotify(var lparametr:LongInt);
var
ppd: PTOOLTIPTEXT;
s:array[0..128] of Char;
begin
ppd:=PTOOLTIPTEXT(lParametr);
begin
if (ppd.Hdr.Code =TTN_NEEDTEXT) then
begin
//LoadString(hinstance,ppd.hdr.idFrom,s,SizeOf(s));
ppd.lpszText:="llkkkjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj";
end;
end;
end;
function WindowProc(hWnd,Msg,wParam,lParam:Longint):Longint; stdcall;
begin
Result:=DefWindowProc(hWnd,Msg,wParam,lParam);
case Msg of
...
WM_NOTIFY:
begin
WndProc_OnNotify(lparam);
end;
end;
end;
Подскажите, что не так?
Больше нигде никаких сообщений по TOOLTIP не обрабатываю
Структура окна TOOLTIP не пустая, я проверял, т.е. окно уже создано вместе с тулбаром. У последнего стоит стиль TBSTYLE_TOOLTIPS
Что еще надо, не пойму. Подскажите пожалуЙСТА.
← →
Comp © (2004-10-06 14:47) [1]Так никто и не знает?
Страницы: 1 вся ветка
Текущий архив: 2004.11.14;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.029 c
