频道分类

delphi TFontDialog

作者:admin 来源: 日期:2021/1/30 15:02:16 人气: 标签:

 
设置前先获得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;

来源:https://www.cnblogs.com/xe2011/p/3372992.html