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

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;