Delphi消息处理函数问题请教
procedure TWinControl.DefaultHandler(var Message);
begin
...................
case Msg of
WM_CTLCOLORMSGBOX..WM_CTLCOLORSTATIC:
Result := SendMessage(LParam, CN_BASE + Msg, WParam, LParam);
.....
end;
end;

如上是TWinControl的DefaultHandler的源码片段。我想问的是：这是一个procedure，为什么会有Result变量？function才会有返回值的啊，这不符合基本语法的？

[解决办法]
没看到上面的with ... do begin?