Пытаюсь обработать событие при изменении элемента SysTreeView32:
function DlgWndProc(Wnd: HWND; uMsg: Integer;
wParam: WPARAM; lParam: LPARAM): LRESULT; Stdcall;
var
//
nm: PNMHDR;
begin
//
Result:=0;
//
case uMsg of
//
WM_NOTIFY:
begin
//
nm:=PNMHDR(lParam);
//
if nm^.code = TVN_SELCHANGED then TreeViewProc;
end;
//
WM_CLOSE: DlgWndDestroy;
//
WM_DESTROY: PostQuitMessage(WM_QUIT);
//
else Result:=DefWindowProc(Wnd, uMsg, wParam, lParam);
end;
end;
Но, почему-то, TVN_SELCHANGED не принимается. Как это можно исправить?
P.S. Нашёл решение: у меня Lazarus (1.0.8), переопределил константу
TVN_SELCHANGED: UINT = -(402);
и условие
nm^.code = TVN_SELCHANGED
стало выполняться...