testmessages.out

格式化源码的最新板

unit TestMessages;

{ simple test for windows message syntax }

interface

uses Messages;

type

  TFoo = class
  public
    procedure CMTextChanged(var Message: TMessage); message WM_SETFONT;
    procedure Soy(var Message: TMessage); message WM_SETFONT + 3;

  end;

implementation

{ TFoo }

procedure TFoo.CMTextChanged(var Message: TMessage);
begin

end;

procedure TFoo.Soy(var Message: TMessage);
begin

end;

end.