平台里如何调出字体修改对话框？**

zfang · 发表于 2009-5-8 17:11:07

用这个控件试试
FontDialog1: TFontDialog;

rzport_lq0 · 发表于 2009-5-8 17:23:46

调出来了。修改了设置，但是设置后字体怎么还是不变啊？

zfang · 发表于 2009-5-8 17:30:15

做个最简单的测试，放一个button，然后调出这个字体修改的，给这个button的相关属性赋值。

rzport_lq0 · 发表于 2009-5-8 17:51:09

还是没有效果

shangxy · 发表于 2009-5-9 10:19:50

你是怎么弄的，把代码贴出来看看呢

rzport_lq0 · 发表于 2009-5-11 08:02:12

procedure TMainForm.Button8Click(Sender: TObject);
begin
if FontDialog1.Execute then
Memo1.Lines.Add('按钮');
end;

zfang · 发表于 2009-5-11 09:02:56

楼主，你Memo1.Lines.Add('按钮');这个代码是往memo1中增加一行数据，跟那个字体设置对话框有什么关系呢？

rzport_lq0 · 发表于 2009-5-11 09:48:38

那该如何做？请指教？

zfang · 发表于 2009-5-11 09:50:25

这样子
if FontDialog1.Execute then
Memo1.Font.Size := FontDialog1.Font.Size

		自动登录	找回密码
密码			立即注册