看看这个怎么写？

Question

int Tree_Notify(LPARAM lParam)
{
switch(((LPNMHDR)lParam)->code)
{
case TVN_SELCHANGED:{...略...}
         }
....
}
请问这段代码怎么写成DELPHI的，老是出错。LPNMHDR是什么

Answer 1

可能是这样：
function Tree_Notify(lParam:LPARAM):integer;
begin
  case  LPNMHDR(lParam).code of
    TVN_SELCHANGED:begin //略 end;
  
  end;
end;

Answer 2

函数1楼已经写了
NMHDR是控件通知消息，
当Windows发送一个WM_NOTIDY消息时，lParam参数是存放NMHDR的指针。
typedef struct tagNMHDR
{
    HWND  hwndFrom;
    UINT  idFrom;
    UINT  code;         // NM_ code
}   NMHDR;
typedef NMHDR FAR * LPNMHDR;

Answer 3

多谢一楼和三楼，
case PNMHdr(lParam).code of