几个PASCAL的问题:

Question

1、在过程后面加上MESSAGE是什么意思？
2、在类后面加上END是什么意思？例如：TMYCLASS=CLASS(TWINCONTROL) END

Answer 1

message 是修饰符的一种，代表此句定义的是消息。end是定义结束的标识，就像{} 在结构体和类中，结束时要有end。

Answer 2

TButtonActionLink = class(TWinControlActionLink)
  protected
    FClient: TButtonControl;
    procedure AssignClient(AClient: TObject); override;
    function IsCheckedLinked: Boolean; override;
    procedure SetChecked(Value: Boolean); override;
  end;  TButtonActionLinkClass = class of TButtonActionLink;后面这句类的引用是不是等于上面这个类的意思?

Answer 3

这是passal的一种规定，有特殊的标识意义。

Answer 4

message
接受windows消息自定义消息