通过ComboBox改变字体。。。简单问题，过10分钟来结贴
现在没用Delphi，居然给忘了，我晕。

没搜到，所以来问问。

//++++++++++++++++++++++++++++++++++++++++++++++

一个edit，一个ComboBox。

下面一行代码，把系统字体赋给ComboBox：
ComboBox1.Items.Assign(Screen.Fonts);


现在我想通过change事件，改变Edit显示的字体（宋体、黑体等）

用dt1.Font.Name := ComboBox1.Font.Name;居然不可以。


请问怎么做才是对的？

[解决办法]
case combobox1.itemindex of
0:begin
//设置字体1
end;
1:begin
//设置字体2
end;
end;
[解决办法]
哪们语言不是这样呢，放下一段时间，自然会忘掉一些
[解决办法]
ComboBox1.Font.Name;是ComboBox1显示文本的字体; 你想要的是ComboBox1中的内容吧

Edit1.Font.Name := ComboBox1.Text;