delphi TFontDialog
![](http://images0.cnblogs.com/blog/300447/201408/010922372589017.png)
设置前先获得Memo的字体属性并设置给FontDialog 然后再设置MEMO的字体属性
//设置Memo的字体属性
procedure TForm1.mni_FontClick(Sender: TObject);
begin
with TFontDialog.Create(nil) do
begin
Font:=Memo1.Font;
Options := [fdApplyButton];
if Execute() then
Memo1.Font:=Font;
end;
end;