简单问题！谢谢你的回答！

Question

message WM_SYSCOMMAND; 这个不能相同的

Answer 1

因为在同一窗体中不能将同一消息对应两个处理过程。
可将申明改成：
  procedure WMPaint(var Message:TWMPaint) ;message WM_PAINT ;
  procedure WMMove(var Message:TWMMove) ;message WM_MOVE ;

Answer 2

因为在同一窗体中不能将同一消息对应两个处理过程。
可将申明改成：
  procedure WMPaint(var Message:TWMPaint) ;message WM_PAINT ;
  procedure WMMove(var Message:TWMMove) ;message WM_MOVE ;