VCL自定义CM_Message的原因
问题：最近看VCL源码，看到经常需要发送CM_消息去调用某个函数，我就不明白，为什么要这样。直接调用函数名称不是挺好吗，尤其是调用虚函数的话，一样很灵活。而且发消息还有个缺点，更依赖于系统，如果系统正忙怎么办？而虚函数只和语言自己有关系，不是更稳妥可靠吗？为什么要自定义消息呢？还把VCL框架搞的更复杂了。
比如：
procedure TWinControl.SetBorderWidth(Value: TBorderWidth);
begin
if FBorderWidth <> Value then
begin
FBorderWidth := Value;
Perform(CM_BORDERCHANGED, 0, 0); // 这里直接调用函数名称不好吗？
end;
end;
procedure TWinControl.CMBorderChanged(var Message: TMessage);
begin
inherited;
if HandleAllocated then
begin
SetWindowPos(Handle, 0, 0,0,0,0, SWP_NOACTIVATE or
SWP_NOZORDER or SWP_NOMOVE or SWP_NOSIZE or SWP_FRAMECHANGED);
if Visible then
Invalidate;
end;
end;
----------------------------------------------------------------
回答：
1. Perform是直接调用WindowProc函数,同步调用没有系统忙不忙之说。相当于SendMessage。不发消息直接调用函数倒也行,不过系统的消息处理总是要处理的。不如就统一走消息这条路了。
2. 最主要是参数的简洁，Perform函数会把三个参数重新组织成一个消息，然后发给其它函数的时候TMessage就可以作为一个整体发给别的函数了，这样还方便写消息索引函数，虚函数与消息的对应没有消息索引函数来的明显。根据传来的三个参数来构建一个消息，这也许是使用CM的关键原因。否则：
1）每个虚函数都需要三个参数写起来还不烦死，看起来烦，写起来也烦（函数参数的简洁）。
2）即使可以传递三个参数给虚函数，虽然可以，但是不够通用，发消息的话只要对应消息索引即可，后两个参数被内包含了，这样不必仅仅为lparam和wparam的不同写上多个不同的虚函数。不如就统一走消息这条路了（函数个数的简洁）。
3）或者想节省函数的参数个数，并直接调用消息处理函数也是一样的效果，这样的话每个发送方都组装一遍也很烦，这样代码就重复了，这里可以统一使用Perform可避免重复组装的问题，这样代码显得相当地简洁（VCL库代码的简洁）。
3. 发消息还可以在WndProc里截住并单独处理，不必单独写成函数，虚函数不行，只能单独写（函数个数的简洁，使用时候的简洁）。
4. 另外消息函数实际是动态函数，如果子类派生层次比较多的话比虚函数在内存上是要节省一些的。而用法和虚函数又差不多。当然，在Delphi下虚函数也可使用dynamic达到与消息索引函数相同的效果。但是无论如何，消息函数恰好也是节省内存的，那就更有理由使用了（内存的简洁）。
总结：
因参数个数的原因，统一走消息路线，好像是很正确的理解。
----------------------------------------------------------------
不是理由的理由：
消息可以跨进程，虚函数能吗
----------------------------------------------------------------
进一步提问：
都说的在理。不过为啥要统一走消息啊，自定义消息累不累啊，而且我看有些地方也是调用虚函数的，也不在少数。不过Borland有意搞这个自定义消息，应该还是别有用意？能不能挖空心思再想想啊。另外，我有空把它全部改成虚函数试试，看看编出来的程序还会正确执行不？这不失为一次对OO深刻理解的尝试。
回答：
有没有深意看其它VCL源码，打开VCL所有源码，可以看到CM消息的所有使用情况。不过上面应该已经猜得八九不离十。
----------------------------------------------------------------
参考：
http://bbs.csdn.net/topics/390888872
-----------------------------------------------------------------
有些可能是为了整个vcl的速度
用虚函数方法会增加vmt的长度，减慢vcl的速度
其实估计是参数构造原因，以及减小内存的原因。
你知道，消息只要有句柄就能发过去
想对使用环境，更减少耦合，
比如一个控件，我只知道句柄，我要执行它的方法
那只能用消息传递，