Delphi中修改原生FMX TMemo控件行为的正确方法是什么

基础操作疑问解答 #

要不要复制系统源码到项目目录？ #

要，绝对不要直接修改C:\Program Files (x86)\Embarcadero路径下的原生源码，一方面系统目录默认有写入权限限制，另一方面修改后会影响所有基于该版本Delphi创建的项目。你找到的所有相关Memo单元都可以复制到项目目录下，建议单独新建一个FMX_Patch文件夹存放，避免和业务代码混淆。

要不要重命名TMemo类名？ #

分场景判断：

• 如果仅当前项目需要使用修改后的TMemo，不需要重命名，直接编辑复制出来的源码即可，后续调整编译优先级就能让项目优先加载你修改的版本
• 如果你需要做通用控件给多个项目使用，或者需要同时保留原生TMemo的功能，再将类名改为TMyMemo这类自定义名称，同时同步修改单元内的控件注册逻辑避免类名冲突

如何让项目优先加载修改后的源码？ #

按以下步骤操作即可：

1. 将你复制出来的所有Memo相关单元添加到当前项目中（项目管理器右键→添加→选中你修改后的单元文件）
2. 调整单元搜索路径优先级：打开项目选项→Delphi 编译器→搜索路径，将你存放修改后源码的文件夹路径移到搜索列表的最顶部，优先级要高于Delphi自带的FMX库源码路径
3. 清理旧编译缓存：删除项目目录下对应编译平台（Win32/Win64）的输出文件夹，点击菜单栏项目→清理，再重新全量编译项目即可生效

额外注意事项 #

• 如果你只需要修改Windows平台的TMemo行为，不需要复制iOS、Android对应的平台相关单元，减少不必要的维护成本
• 如果编译时出现类重复定义报错，优先检查搜索路径顺序是否正确，以及是否在uses子句中显式指定了原生FMX.Memo单元
• 修改源码时注意区分单元内的PLATFORM条件编译块，避免改错其他平台的逻辑

更低侵入的可选方案 #

如果你仅需要修改少数几个公开/保护方法、事件逻辑，更推荐用继承重写的方式，不需要改动原生源码：

unit MyMemoUnit;

interface

uses
  FMX.Memo;

type
  TMyMemo = class(TMemo)
  protected
    // 示例：重写按键事件逻辑
    procedure KeyDown(var Key: Word; var KeyChar: Char; Shift: TShiftState); override;
  public
    // 自定义公开方法、属性
  end;

implementation

procedure TMyMemo.KeyDown(var Key: Word; var KeyChar: Char; Shift: TShiftState);
begin
  // 你的自定义逻辑
  inherited;
end;

end.

写完之后把窗体上原来的TMemo控件替换成TMyMemo即可，这种方式不会影响其他项目，后续升级Delphi版本也更容易适配。

内容的提问来源于stack exchange，提问作者user130268