问个界面上显示特殊字符的问题 ？英文操作系统

[南方的他]

请问在英文操作系统上，label里想显示这样几个特殊字符，怎么设置？
σ
Φ
γ
全显示？号或其他？
同志们有没有遇到过，怎么解决，谢谢

[s11ss]

试试

type
  TLabel = class(StdCtrls.TLabel)
  protected
    procedure DoDrawText(var Rect: TRect; Flags: Longint); override;
  end;

  TForm1 = class(TForm)
    Label1: TLabel;
    ...

{ TLabel }

procedure TLabel.DoDrawText(var Rect: TRect; Flags: Integer);
var
  Text: WideString;
begin
  Text := GetLabelText;
  if (Flags and DT_CALCRECT <> 0) and ((Text = '') or ShowAccelChar and
    (Text[1] = '&') and (Text[2] = #0)) then Text := Text + ' ';
  if not ShowAccelChar then Flags := Flags or DT_NOPREFIX;
  Flags := DrawTextBiDiModeFlags(Flags);
  Canvas.Font := Font;
  if not Enabled then
  begin
    OffsetRect(Rect, 1, 1);
    Canvas.Font.Color := clBtnHighlight;
    DrawTextW(Canvas.Handle, PWideChar(Text), Length(Text), Rect, Flags);
    OffsetRect(Rect, -1, -1);
    Canvas.Font.Color := clBtnShadow;
    DrawTextW(Canvas.Handle, PWideChar(Text), Length(Text), Rect, Flags);
  end
  else
    DrawTextW(Canvas.Handle, PWideChar(Text), Length(Text), Rect, Flags);
end;

[南方的他]

引用 1 楼 s11ss 的回复:

试试

type
  TLabel = class(StdCtrls.TLabel)
  protected
    procedure DoDrawText(var Rect: TRect; Flags: Longint); override;
  end;

  TForm1 = class(TForm)
    Label1: TLabel;
    ...

{ TLabel }

procedure TLabel.DoDrawText(var Rect: TRect; Flags: Integer);
var
  Text: WideString;
begin
  Text := GetLabelText;
  if (Flags and DT_CALCRECT <> 0) and ((Text = '') or ShowAccelChar and
    (Text[1] = '&') and (Text[2] = #0)) then Text := Text + ' ';
  if not ShowAccelChar then Flags := Flags or DT_NOPREFIX;
  Flags := DrawTextBiDiModeFlags(Flags);
  Canvas.Font := Font;
  if not Enabled then
  begin
    OffsetRect(Rect, 1, 1);
    Canvas.Font.Color := clBtnHighlight;
    DrawTextW(Canvas.Handle, PWideChar(Text), Length(Text), Rect, Flags);
    OffsetRect(Rect, -1, -1);
    Canvas.Font.Color := clBtnShadow;
    DrawTextW(Canvas.Handle, PWideChar(Text), Length(Text), Rect, Flags);
  end
  else
    DrawTextW(Canvas.Handle, PWideChar(Text), Length(Text), Rect, Flags);
end;

怎么使用啊？是个控件吗？

[mdejtod]

直接在你要用label 的 pas 中加上这些代码即可

[sololie]

这不就是些希腊字母么，怎么不能显示？

[s11ss]

To 2L: 在Unit1单元加上啊。主要要在TForm1的声明之前加上TLabel声明。

[s11ss]

纠错，主要->注意