delphi 中的消息传送。。。（100分求解）

Question

同上

Answer 1

>>delphi 中的消息传送
你這個題目有點大啊, 你是指內部傳送? 程序間傳送?? 還是???

Answer 2

内部VCL消息TSpecialPanel=class(TPanel)
 protected
  procedure CMMouseEnter(var Msg:TMessage);message CM_MOUSEENTER;
  procedure CMMouseLeave(var Msg:TMessage);message CM_MOUSELEAVE;
...
procedure TSpecialPanel.CMMouseEnter(var Msg:TMessage);
begin
 inherited
 color:=clwhite;
end;procedure TSpecialPanel.CMMouseLeave(var Msg:TMessage);
begin
 inherited
 color:=clBtnFace;
end;
这是一个控件处理定制消息，当鼠标时入控件表面区哉时，控件面板变成白色，当鼠标离开时，控件面板变回clbtnface色。