delphi - Delphi7中如何增加MessageDlg宽度？

Question

我正在开发 Delphi 7。我想更改 messageDlg 宽度。

我的意思是我的消息测试非常长，因为该消息显示在 2 行中，但我只想在一行中显示消息。

下面是我的单行代码

MessageDlg('i want to display only in oneline i want to display only in oneline i want to display only in oneline i want to display only in oneline i want to display only in oneline',mtError,[mbok],0)

输出是:

以上消息显示为 2 行，但我只想显示消息为一行。

Answer 1

在 Delphi 7 中，MessageDlg 函数是在 CreateMessageDialog 之上实现的。您可以调用该方法并返回一个 TForm 实例。然后，您可以加宽该表单、加宽其标签，然后显示该表单。

var
  Form: TForm;
  Label: TLabel;
....
Form := CreateMessageDialog(Msg, mtError, [mbOK]);
try
  Label := Form.FindComponent('Message');
  Label.Width := Label.Width + ExtraWidth;
  Form.ClientWidth := Form.ClientWidth + ExtraWidth;
  Form.Position := poScreenCenter;
  ShowModal;
finally
  Form.Free;
end;

剩下的就是计算出ExtraWidth。查看 CreateMessageDialog 的实现以获取灵感。想必您希望包含逻辑以避免表单太宽、超出显示器的宽度等。