怎么指定TreeView的onchange事件 完整问题请点击进入 COME ON

Question

treeview.onchange 方法可以指定一个treeview的ONCHANGE事件可是我无论怎么指定都实现不了具体如下：
1，我写的指定事件过程
PROCEDURE TV_MAIN_EVENTS(VAR TV: TTREEVIEW);
BEGIN
  WITH TV DO BEGIN
    ONCHANGE := TV_MAIN_ONCHANGE;   //这里报错，错误代码在最后
  END;
END;
2，被指定的事件
PROCEDURE TV_MAIN_ONCHANGE(SENDER: TOBJECT;NODE: TTREENODE);
BEGIN
  SHOWMESSAGE('调用成功');
END;错误代码:  [Error] M_TV_INITIALIZE.pas(54): Incompatible types: 'method pointer and regular procedure'请高手指教！

Answer 1

把你的函数定义防在类中 PROCEDURE TForm1.TV_MAIN_ONCHANGE(SENDER: TOBJECT;NODE: TTREENODE);
BEGIN
  SHOWMESSAGE('调用成功');
END;PROCEDURE TForm1.TV_MAIN_EVENTS(VAR TV: TTREEVIEW);
BEGIN
    TV.OnChange := TV_MAIN_ONCHANGE;   //这里报错，错误代码在最后
END;这样就可以了