testmessages.out

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

OUT
26
字号
unit testmessages;

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

procedure tfoo.cmtextchanged(var message: tmessage);
begin
end;

procedure tfoo.soy(var message: tmessage);
begin
end;

end.
 

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?