Delphi7设置字体问题！
添加一个Button1；和一个fontdialog1；按钮代码是Fontdialog1.Execute;Fontdialog1的onApply代码是Button1.Fon...
添加一个Button1；和一个fontdialog1；按钮代码是Fontdialog1.Execute;Fontdialog1的onApply代码是Button1.Font:=Fontdialog1.Font;可是点击按钮改变字体后，按钮的字体没反应！怎么回事啊？
展开
展开全部
在按钮事件中加就可以了procedure TForm1.Button1Click(Sender: TObject);
begin
if FontDialog1.Execute then
Button1.Font:= FontDialog1.Font;
end;
begin
if FontDialog1.Execute then
Button1.Font:= FontDialog1.Font;
end;
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
字体视界
2024-09-30 广告
作为一家专业的字体网站，我们为您提供多种高质量的字体，包括经典、现代、手写、装饰等不同风格。我们的字体支持多种语言和平台，包括Windows、Mac、iOS、Android等。您可以自由选择您喜欢的字体，并下载到您的设备上。此外，我们还提供...
点击进入详情页
本回答由字体视界提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
