Question

delphi怎样在循环变换文本情况下用fontdialog组件设置字体？

比如label.caption文本由timer每隔1分钟循环变换显示一次不同的内容，在这种情况下用fontdialog组件设置显示的字体，总是搞不成功。
如果通过点击按钮来实现：if fontdialog1.execute then lanel1.font:=fontdialog1.font;那么只对当前文本起作用，变换到下一个文本又恢复原样。
如果把这一句放到timer1的ontimer事件中，则每变换显示下一次文本就自动打开一次fontdialog1对话框.
请高手指点一下：怎样在变换显示字体时随时可通过fontdialog组件设置字体并且不仅仅是对当前文本起作用？

Answer 1

那你还可以建立一个 TFont 的变量，

var
labelFont: TFont;

然后在onTimer事件中，重新设定

Label.Font := LabelFont;

Answer 2

label.parentfont:=false;
看看效果