错误提示怎样改正呀急呀在线等呀

Question

PROTECTED 
PROCEDURE WNDPROC(VAR MESSAGE:TMESSAGE):OVERRIDE;
然后
PROCEDURE TFORM1.WNDPROC(VAR MESSAGE:TMESSAGE)
CONST
WM_USERAA=$8000;
BEGIN
 IF MESSAGE.MSG=WM_USERAAA THEN
 BUTTON1.CLICK
 ELSE
 WNDPROC(MESSAGE);END;
提示错误信息:PROJECT1 PROJECT1.EXE RAISED EXCEPTION CLASS ESTACKOVERFLOW WITH MESSAGE'STACK OVERFLOW'

Answer 1

ELSE
WNDPROC(MESSAGE);
把这两句去掉呢，试试

Answer 2

提示是'stack overflow',应该是CONST　WM_USERAA=$8000;这一句的问题。把WM_USERAAA的值改小点试试...
2003赛季CSDN联赛进入最后阶段，年底大抢分~~~~~~~~~~~~~~~~~~~~~

Answer 3

inherited;应该是没做默认处理吧.