在delphi中，怎样定义和处理自定义的消息

Question

定义消息常量。
const
  BJFORM_EDIT = WM_USER + 30;
定义处理过程：
procedure bjFormEdit(var Message: TMessage); message BJFORM_EDIT;其他地方触发  ：PostMessage();

Answer 1

谢谢 laza 的回复，但是我还是不很理解，wm_user是什么？

Answer 2

消息常量：
0 到 WM_USER - 1系统保留。
windows让用户定义的消息常量都从这个值上形成。
看看windows SDK,delphi带的，help菜单里，敲入单词索引一下。帮助is最有用的！

Answer 3

请问laza兄弟：能解释以下CODING是什么意思吗？
type  TTextBox = class(TCustomControl)
    private
    procedure WMChar(var Message: TWMChar); message WM_CHAR;//如何知道WM_CHAR,
    ...
  end;
procedure TTextBox.WMChar(var Message: TWMChar);
begin
  if Chr(Message.CharCode) = #13 then
    ProcessEnter//有什么用
  else
    inherited;//有什么用
end;

Answer 4

你好像对delphi都不是很熟悉吧，我觉得你应该先学会使用delphi再说，
就像你问这个问题一样，你连最基本的东西都不明白，暂时不要钻研这些
了，先打好基础，你会发现很多东西潜移默化就明白了！！！

Answer 5

这个消息处理过程处理wm_char消息，wm_char 事系统的消息。
过程看看消息传的字符是否要处理的回车字符，然后处理。不是这个字符的处理交给她的老子，祖宗。
这是delphi的消息派送的内容。eping说的对。
先看看书吧，<<delphi4入门到精通>>很好，讲解good，多看看。

Answer 6

laza你的说法有个错误，“不是这个字符就的处理就交给她的老子，祖宗”，应该说是交给原来的消息处理系统，你这个不是重载函数，也不是对象里面的虚函数。

Answer 7

To: biner 原来的消息系统指什么？使用 Message关键字来声明的Windows消息处理程序，inherited就是调用父类的消息处理过程。编译器就是这么理解！