菜鸟请教！！

Question

一．函数定义
     procedure CmEnableChanged(var Message:TWmNoParams);
                                       message CM_ENABLEDCHANGED;
     后面的message ...... 干什么用的？？
　二．类定义
　　　THour=procedure(Sender:TObject;Hour:word)of object;
     是定义类吗？？没见过这种形式啊

Answer 1

一．函数定义
     procedure CmEnableChanged(var Message:TWmNoParams);
                                       message CM_ENABLEDCHANGED;
     后面的message ...... //指示字用于表明后的是消息类型
　二．类定义
　　　THour=procedure(Sender:TObject;Hour:word)of object;
     //定一个过程指针，并非是类(我个人认为)

Answer 2

程序后面又出现了
　　　 FHour:THour;　
       if Assigned(FHour)　then FHour(Self,s);
     又是什么意思呢？？

Answer 3

实际上Thour指向的是一个过程的地址。
Assigned(FHour)  //Fhour变量是否能在内存中找到且不为空.