Question

Delphi设置字体问题

在窗体上拖一个edit，一个combobox，然后在edit中输入汉字，在combobox中选择字体，比如“隶书”“幼圆”“宋体”，改变edit里面汉字的字体，在combobox的OnSelect事件里面写edit1.Font.Name:=comboBox1.SelText;但是改变不了字体，我发现edit1.Font.Name的类型是TFontName，而comboBox1.SelText是字符串类型，怎样将字符串类型改变为TFontName类型呢

Answer 1

Unit
Graphics or QGraphics
Delphi syntax:
type TFontName = type string;
...
在 TForm1.ComboBox1Select(Sender: TObject);
或 TForm1.ComboBox1Change(Sender: TObject); 中
用 Edit1.Font.Name := ComboBox1.Text;

Answer 2

跟那个没关系，IDE会自动转换的，问题出在seltext上
edit1.Font.Name:=comboBox1.Text;

你试试这个