如何用Delphi做一个类似Office的字体选择与字体大小选择框？

Question

我开始尝试用ActionManage中的标准对话框，可是是出一个对话框的方式？
还不知道如何将其结果返回给我选中的字？后来用１stclass中的fcFontCombo1，可是也不知道如何返回结果？而且有没有方法只列出我所希望显示的中文字体，或几种字体？
一个简单界面，下面就一个RichEdit，我在其中设置一些简单的格式。

Answer 1

看看\Delphi7\Demos\RichEdit\ 下的那个例子

Answer 2

procedure TFrmMain.GetFontNames;
var
  DC: HDC;
begin
  DC := GetDC(0);
  EnumFonts(DC, nil, @EnumFontsProc, Pointer(FontName.Items));
  ReleaseDC(0, DC);
  FontName.Sorted := True;
  FontName.Text := '宋体';
end;FontName是一个ComboBox就能去除系统的所有字体了

Answer 3

function EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric;
  FontType: Integer; Data: Pointer): Integer; stdcall;
begin
  TStrings(Data).Add(LogFont.lfFaceName);
  Result := 1;
end;