C++ VCL自定义TEdit控件基于字符集的文本转换实现咨询

核心实现思路 #

你的初始方向是可行的，实际开发可以根据复杂度选择两种实现路径，核心逻辑都是把原始文本和展示文本做分层存储：

• 轻量方案：重写Text属性的读写逻辑，用私有变量存原始文本，父类原生属性存转换后的展示文本，复用VCL自带的渲染逻辑
• 自定义渲染方案：拦截WM_PAINT消息自行调用WinAPI绘制文本，适合转换逻辑复杂、需要特殊渲染效果的场景

简单实现示例（Delphi VCL环境） #

unit CustomCharsetEdit;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes, Vcl.Controls, Vcl.StdCtrls;

type
  TCustomCharsetEdit = class(TEdit)
  private
    FOriginalText: string; // 存储未转换的原始文本
    // 自定义转换逻辑，可根据字符集需求自行修改
    function ConvertToDisplayText(const RawText: string): string;
  protected
    // 重写Text属性的读写方法
    function GetText: string; reintroduce;
    procedure SetText(const Value: string); reintroduce;
    // 如需自定义绘制可放开该消息拦截
    // procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property Text: string read GetText write SetText;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('CustomControls', [TCustomCharsetEdit]);
end;

{ TCustomCharsetEdit }
constructor TCustomCharsetEdit.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FOriginalText := '';
end;

function TCustomCharsetEdit.ConvertToDisplayText(const RawText: string): string;
begin
  // 示例逻辑：替换为你根据当前字体字符集做转换的代码
  // 这里用全大写转换做演示，实际可根据Font.Charset做字符映射
  Result := UpperCase(RawText);
end;

function TCustomCharsetEdit.GetText: string;
begin
  // 外部读取Text属性时直接返回原始未转换文本
  Result := FOriginalText;
end;

procedure TCustomCharsetEdit.SetText(const Value: string);
begin
  FOriginalText := Value;
  // 父类的Text存转换后的内容，用原生逻辑渲染
  inherited Text := ConvertToDisplayText(Value);
end;

// 自定义绘制逻辑示例，不需要可注释掉
(*
procedure TCustomCharsetEdit.WMPaint(var Message: TWMPaint);
var
  DC: HDC;
  PaintStruct: PAINTSTRUCT;
  ClientRect: TRect;
begin
  DC := BeginPaint(Handle, PaintStruct);
  try
    GetClientRect(Handle, ClientRect);
    // 填充背景
    FillRect(DC, ClientRect, Brush.Handle);
    // 设置文本样式
    SetTextColor(DC, Font.Color);
    SelectObject(DC, Font.Handle);
    SetBkMode(DC, TRANSPARENT);
    // 绘制转换后的文本
    DrawText(DC, PChar(ConvertToDisplayText(FOriginalText)), -1, ClientRect, DT_LEFT or DT_VCENTER or DT_SINGLELINE);
  finally
    EndPaint(Handle, PaintStruct);
  end;
end;
*)
end.

注意事项 #

• 轻量方案完全复用原生TEdit的交互逻辑，适配选中、光标移动、输入响应等原生特性，仅需额外注意如果要控制复制行为返回原始文本还是展示文本，可拦截WM_COPY消息处理
• 自定义绘制方案需要自行实现光标、选中态、滚动等交互逻辑，复杂度更高，适合有特殊渲染需求的场景
• 字符集转换逻辑全部收敛在ConvertToDisplayText方法中，可直接读取Font.Charset属性做对应的字符映射处理

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