通过ComboBox改变字体。。。简单问题，过10分钟来结贴

Question

现在没用Delphi，居然给忘了，我晕。没搜到，所以来问问。//++++++++++++++++++++++++++++++++++++++++++++++一个edit，一个ComboBox。下面一行代码，把系统字体赋给ComboBox：
ComboBox1.Items.Assign(Screen.Fonts);
现在我想通过change事件，改变Edit显示的字体（宋体、黑体等）用dt1.Font.Name := ComboBox1.Font.Name;居然不可以。
请问怎么做才是对的？

Answer 1

case combobox1.itemindex of
 0:begin
    //设置字体1
   end;
 1:begin
    //设置字体2
   end;
end;

Answer 2

问题解决了，edit.Font.Name := ComboBox1.Text;Delphi还是要经常搞啊，不搞会忘了的

Answer 3

ComboBox1.Font.Name;是ComboBox1显示文本的字体; 你想要的是ComboBox1中的内容吧Edit1.Font.Name := ComboBox1.Text;