Delphi的TRichEdit支持新标准

让Delphi的TRichEdit支持新标准
先说明, 不是直接让TRichedit支持, 而是派生出一个类支持

原理就是, IDE自带的richedit使用的是2.0版本(RICHEDIT20A/RICHEDIT20W), 这个版本虽然支持图片/表格显示, 但是似乎不支持从RTF文件中加载(我也不知道为什么, 总之表现出来就是不支持)

所以, 支持新标准的思路就是, 派生一个子类, 在CreateParams时使用新标准去定义它

这里我使用的是richedit4.1标准(RICHEDIT50W), 这个标准是依赖于MSFTEDIT.DLL这个文件, 系统自带, 从XP-SP1开始支持, 所以如果你的程序是在XP-SP1以下的版本运行就不要考虑了

没别的, 直接贴源码

复制代码
unit RichEdit41;

interface

uses
 Winapi.Windows,
 Vcl.ComCtrls, Vcl.Controls;

const
 RICHEDIT_V41_CLASSNAME = 'RICHEDIT50W';
 RICHEDIT_V41_MODULENAME = 'MSFTEDIT.DLL';

type
 [RootDesignerSerializerAttribute('', '', False)]
 [ComponentPlatformsAttribute(pidWin32 or pidWin64)]
 TRichEdit41 = class(TRichEdit)
 protected
   procedure CreateParams(var Params: TCreateParams); override;
 end;

procedure Register;

implementation

uses
 System.Classes;

var
 FRichEdit41LabHandle: HMODULE;

{ TRichEdit41 }

procedure TRichEdit41.CreateParams(var Params: TCreateParams);
begin
 inherited;
 CreateSubClass(Params, RICHEDIT_V41_CLASSNAME);
end;

procedure Register;
begin
 RegisterComponents('Others', [TRichEdit41]);
end;

initialization
begin
 FRichEdit41LabHandle := LoadLibrary(RICHEDIT_V41_MODULENAME);
end;

finalization
begin
 FreeLibrary(FRichEdit41LabHandle);
end;

end.
复制代码


--------------------------------------------------------------------------------------------------
作者：黑暗煎饼果子
联系方式：lzl_17948876@hotmail.com