100分

Question

property Spacing: Integer read FSpacing write SetSpacing default 4;是属性定义不是过程
procedure CMEnabledChanged(var Message: TMessage); message CM_ENABLEDCHANGED;定义一个消息响应过程,接收到CM_ENABLEDCHANGED消息就会执行该过程的代码

Answer 1

那个read 和write连用是什么意思？

Answer 2

property Spacing: Integer read FSpacing write SetSpacing default 4;
Read：代表这个属性从FSpacing这个变量取数；
Write:代表用SetSpacing这个过程附值procedure CMEnabledChanged(var Message: TMessage); message CM_ENABLEDCHANGED;
是个指发生CM_ENABLEDCHANGED这个消息时执行CMEnabledChanged这个过程

Answer 3

第一个是定义一个空件的属性
通过读取FSpacing的值取得属性Spacing的值,通过setspacing过程写spacing属性的值到FSpacing中.
第二个是消息处理聚丙
当接收到CM_ENABLEDCHANGED消息就会执行该过程的代码