如何让Delphi全应用窗体控件默认使用TURKISH_CHARSET？

问题修正说明 #

你之前的代码错误在于TWinControl没有Font属性，Font属性定义在TControl的子类（如TCustomComboBox、TCustomSpeedButton、TCustomLabel等）中，需要针对带Font属性的控件类型进行设置，或通过通用方式检测并修改。

方案1：递归遍历控件（精准匹配控件类型） #

编写递归函数，遍历所有窗体及子控件，针对需要修正的控件类型设置字符集：

procedure SetControlCharset(AControl: TControl; ACharset: Byte);
var
  I: Integer;
begin
  // 针对带Font属性的控件设置字符集
  if AControl is TCustomComboBox then
    TCustomComboBox(AControl).Font.Charset := ACharset
  else if AControl is TCustomSpeedButton then
    TCustomSpeedButton(AControl).Font.Charset := ACharset
  else if AControl is TCustomLabel then
    TCustomLabel(AControl).Font.Charset := ACharset
  // 可根据需要添加其他控件类型（如TEdit、TMemo等）
  else if AControl is TCustomEdit then
    TCustomEdit(AControl).Font.Charset := ACharset;

  // 递归遍历子控件
  if AControl is TWinControl then
    for I := 0 to TWinControl(AControl).ControlCount - 1 do
      SetControlCharset(TWinControl(AControl).Controls[I], ACharset);
end;

调用方式

在主窗体的OnCreate事件中调用，覆盖主窗体及所有子控件；其他窗体可在自身OnCreate中重复调用：

procedure TMainForm.FormCreate(Sender: TObject);
begin
  SetControlCharset(Self, TURKISH_CHARSET);
end;

方案2：通用设置（利用RTTI适配所有带Font属性的控件） #

如果需要适配所有带Font属性的控件，可使用RTTI（Delphi 2010及以上支持）或SetPropValue（旧版本Delphi）实现通用设置：

uses
  TypInfo;

procedure SetControlCharset(AControl: TControl; ACharset: Byte);
var
  I: Integer;
begin
  // 判断控件是否有Font.Charset属性
  if IsPublishedProp(AControl, 'Font') then
  begin
    SetPropValue(AControl, 'Font.Charset', ACharset);
  end;

  // 递归遍历子控件
  if AControl is TWinControl then
    for I := 0 to TWinControl(AControl).ControlCount - 1 do
      SetControlCharset(TWinControl(AControl).Controls[I], ACharset);
end;

补充：全局默认字体设置 #

若希望新创建的控件默认继承土耳其字符集，可在应用启动时设置Application的默认字体：

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Application.Font.Charset := TURKISH_CHARSET;
  // 配合递归遍历，覆盖已设计好的控件
  SetControlCharset(Self, TURKISH_CHARSET);
end;

注意事项 #

• 确保使用的Verdana字体支持土耳其字符集（你当前的环境已满足）
• 非Unicode应用区域设置为土耳其的前提下，字符集设置可确保特殊字符正常显示
• 设计期已手动修改字体的控件，需通过递归遍历强制覆盖Charset属性

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