自定义Font对话框

Question

就是和系统的差不多，点击Font就显示出字体对话框，不是系统的，要自己做这个对话框，怎么做，谢谢啊。

Answer 1

我的意思是，在属性里面的Font，点击就会弹出一个字体对话框，我现在点击也可以弹出一个对话框，但是不要系统的，我自己做的，怎么做啊

Answer 2

有一本书<Delphi深度编程及其项目应用开发>,里面有一章介绍自定义组件的高级应用:组件属性编辑器,去看一下

Answer 3

别的都简单，系统字体可以用下面的读取
for i:=1 to screen.Fonts.Count do
    listbox1.Items.Add(screen.Fonts[i-1])

Answer 4

怎么制作这个form，就是拉那些控件，和一般的那些一样吧，但是那些框里面的数据，怎么显示出来呢，也就是现在怎么调用XP的那些FONT呢，

Answer 5

procedure TMyFontProperty.Edit;
var
  FontDialog: TFontDialog;
begin
  FontDialog := TFontDialog.Create(Application);
   try
     FontDialog.Font := TFont(Pointer(GetOrdValue));
     if FontDialog.Execute then
       SetOrdValue(Longint(Pointer(FontDialog.Font)));
  finally
    FontDialog.Free;
  end;
end;
这个是调出那个字体对话框的，但是字体对话框，怎么做啊，

Answer 6

现在的问题是那个FORM怎么做到和系统的字体对话框一样啊

Answer 7

字体列表：Screen.Fonts
话外：不知道你用自己的有什么好处，还是你设计的比系统的漂亮。个人认为实在是没有必要。
如果要获得其他的信息，只能是查找windowsAPI了。