Не появляются подсказки TOOLTIP на TOOLBAR [D6, D7]
Comp © (2004-10-05 23:25:00)
Здравствуйте, уважаемые мастера. Люди добрые, никак не пойму,
что за глюк. Вот код:
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:00) [1]
Так никто и не знает?
Наверх 
ЧАТ |
Орешник |
|
