如何在消息框中使用特定字体？

Question

如何在Delphi 7的程序中使用特定的字体名称及其大小，如下所示：

procedure TForm1.infoClick(Sender: TObject);
begin
  ShowMessage(
  '- Lorem ipsum dolor sit amet.'+chr(10)+
  '- Lorem ipsum dolor sit amet.'+chr(10)+
  '- Lorem ipsum dolor sit amet.'
  );
end;

Answer 1

在Dialogs单元中，CreateMessageDialog: TForm函数中使用了函数MessageDlg来创建邮件表单。您可以在表单显示之前使用它进行一些自定义：

procedure TForm5.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  with CreateMessageDialog('- Lorem ipsum dolor sit amet.', mtInformation, [mbOk], mbOk) do
  try
    // Sets font for whole form including buttons
    {
    Font.Name := 'Times New Roman';
    Font.Size := 12;
    }
    // Sets font for label(s) only
    for i := 0 to ControlCount - 1 do
      if Controls[i] is TLabel then
        with Controls[i] as TLabel do
        begin
          Font.Name := 'Times New Roman';
          Font.Size := 12;
        end;
    ShowModal;
  finally
    Free;
  end;
end;

Answer 2

您可以根据需要创建自己的表单并设置样式：

1. 创建自定义TForm
2. 在其上放置标签和/或其他元素，并为其指定任何所需的字体和样式。
3. 创建一个能够装配表单并将ShowModal显示给用户的函数。