delphi - 更改 ShowMessage 对话框的标题和属性

Question

在 Delphi 中，您可以更改 ShowMessage 对话框的标题，因为默认情况下它采用的是我的 exe 名称。

我可以更改背景颜色、大小吗？

Answer 1

您可以使用delphi的CreateMessageDialog函数创建您自己的自定义对话框。

示例如下:

var
  Dlg: TForm;
begin
  Dlg := CreateMessageDialog('message', mtInformation, [mbOk], mbOK);
  // Treat Dlg like any other form

  Dlg.Caption := 'Hello World';

  try
    // The message label is named 'message'
    with TLabel(Dlg.FindComponent('message')) do
    begin
      Font.Style := [fsUnderline];

      // extraordinary code goes here
    end;

    // The icon is named... icon
    with TPicture(Dlg.FindComponent('icon')) do
    begin
      // more amazing code regarding the icon
    end;

    Dlg.ShowModal;
  finally
    Dlg.Free;
  end;

当然，您也可以动态地将其他组件插入到该表单中。