Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c