Question

Delphi 如何调出字体对话框

Delphi 如何调出字体对话框 要求样式和Windwos记事本的一样
请看区别 这个Windows记事本的字体对话框

这个是TFontDialog的对话框

TFontDialog调用出来后的样式和Windows记事本完全是不一样的
这是调用TFontDialog的代码
with TFontDialog.Create(nil) do begin Font := Memo1.Font; Options := [fdApplyButton]; if Execute() then Memo1.Font := Font; end;

Delphi 如何调出字体对话框 要求样式和Windwos记事本的一样 和图一的样式完全一样的！





Answer 1

Delphi TFontDialog调用的就是WIndows系统的字体设置对话框。不知道你是什么版本的WIndows或者记事本.按照你的调用方法得到的应该是这样的效果.

不行的话，你就只能自己新建一个窗体自己排版了。

Answer 2

with TFontDialog.Create(nil) do
  begin
    Font := Memo1.Font;
    Options := [fdApplyButton] - [fdEffects];
    if Execute() then
      Memo1.Font := Font;
  end;

Answer 3

找控件啊。