通过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;