为什么？？？？？？？？？？？

Question

procedure TForm1.FormCreate(Sender: TObject);
var
  rgn:HRGN;
begin
  Form1.Color:=clRed;
  BeginPath(Canvas.Handle);
  SetBKMode(Canvas.Handle,TRANSPARENT);
  Canvas.Font.Name:='宋体';
  Canvas.Font.Size:=200;
  Canvas.TextOut(150,130,'CX66.COM');
  EndPath(Canvas.Handle);
  rgn:=PathToRegion(Canvas.Handle);
  SetWindowRgn(Handle,rgn,true);
end;
为什么把  Canvas.Font.Name:='宋体'; 改成有些字体，就会出不来效果呢？
例如 改为Canvas.Font.Name:='MS Sans Serif';
各位专家，请指点一下

Answer 1

楼主开了两贴呀＾－＾Canvas.Font.Name:='Microsoft Sans Serif';

Answer 2

还是取一下系统字体吧
ComboBox1.Items.Assign(Screen.Fonts);