怎样在label中正确的显示“®”?就是圆圈里一个R字! 显示出来的是一个问号,就是是显示出来的是乱码?请问怎样解决? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 delphi帮助的About里有这个符号,查看这串字的类名为TWideMemo,VCL里既然有这个控件,为何找不到呢? delphi控件的caption,text一类的都是string类型的,#174是Unicode编码楼主参考下下面这篇文章http://blog.csdn.net/sinkay/archive/2005/09/08/475223.aspx 我也知道有TNT控件,但是我的实际情况决定了我不能使用这套控件 好象只有类似TNT的组件才能解决这个Unicode的问题。 procedure TForm1.Button1Click(Sender: TObject);const ss: array[0..1] of WideChar = (#174, #0);var g: TGpGraphics; font: TGpFont; brush: TGpBrush;begin brush := TGPSolidBrush.Create($FFFF0000); font := TGpFont.Create(TGpFontFamily.GenericSansSerif, 12); g := TGpGraphics.Create(Label1.Canvas.Handle); g.DrawString(ss, 1, font, MakePoint(0.0, 0.0), brush); g.Free; brush.Free; font.Free;end; 找不到TGpGraphics我没有GDI+的pas文件 //那个文件叫GdipObj.pas//不过有个简单的方法是这样procedure TForm1.Button1Click(Sender: TObject);var S: WideString;begin S := '版权所有?2007接分'#0; Word(S[5]) := 174; Canvas.Font.Name := '宋体'; Canvas.Font.Size := 12; ExtTextOutW(Canvas.Handle, 0, 0, 0, nil, PWideChar(S), Length(S), nil);end; DELPHI 配合 什么数据库做开发比较好? 在Delphi中执行存储过程超时的问题 如何实现在不同规格的显示器(尺寸大小和分辨率不同)下运行程序时使窗体和其中的控件随之而变呢? DBGRIDEH做凭证控件,如何总让它显示多行表格线? 大家有什么好主意,来说说??? 年轻的心依然在痛 请帮帮俺吧,俺实在是没办法了 如何排序??????? 在DBGRID中动态生成数组控件 请教一个关于res的问题 concat和+,谁操作字符串连接时更快 不用结束进程也可以删除正在使用的程序
楼主参考下下面这篇文章
http://blog.csdn.net/sinkay/archive/2005/09/08/475223.aspx
procedure TForm1.Button1Click(Sender: TObject);
const
ss: array[0..1] of WideChar = (#174, #0);
var
g: TGpGraphics;
font: TGpFont;
brush: TGpBrush;
begin
brush := TGPSolidBrush.Create($FFFF0000);
font := TGpFont.Create(TGpFontFamily.GenericSansSerif, 12);
g := TGpGraphics.Create(Label1.Canvas.Handle);
g.DrawString(ss, 1, font, MakePoint(0.0, 0.0), brush);
g.Free;
brush.Free;
font.Free;
end;
我没有GDI+的pas文件
//不过有个简单的方法是这样procedure TForm1.Button1Click(Sender: TObject);
var
S: WideString;
begin
S := '版权所有?2007接分'#0;
Word(S[5]) := 174;
Canvas.Font.Name := '宋体';
Canvas.Font.Size := 12;
ExtTextOutW(Canvas.Handle, 0, 0, 0, nil, PWideChar(S), Length(S), nil);
end;