Question

Delphi7设置字体问题！

添加一个Button1；和一个fontdialog1；按钮代码是Fontdialog1.Execute;Fontdialog1的onApply代码是Button1.Font:=Fontdialog1.Font;可是点击按钮改变字体后，按钮的字体没反应！怎么回事啊？

Answer 1

在按钮事件中加就可以了procedure TForm1.Button1Click(Sender: TObject);
begin
if FontDialog1.Execute then
Button1.Font:= FontDialog1.Font;
end;