怎样在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; 求一条SQL的Delphi写法。 请问DELPHI中如何与SQL SERVER数据库连接? 各位高手请看看这是啥问题? [紧急求助]子窗口之前控制问题!! 如果检查一个进程是否存在呀? socket 控件 使用问题 非常着急 一个关于了TREEVIEW的问题了大家进来看看了 ComPort控件 aspobject 采用object context 时,如何初始化系统参数,以及释放呢? d6中发现CORBAObj.pas编译时找不到 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;