testmessages.out

来自「格式化源码的最新板」· OUT 代码 · 共 33 行

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.