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

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;