delphi 带有自定义按钮文本的MessageDlg [已关闭]

a1o7rhls  于 2023-01-25  发布在  其他
关注(0)|答案(1)|浏览(225)

**已关闭。**此问题需要debugging details。当前不接受答案。

编辑问题以包含desired behavior, a specific problem or error, and the shortest code necessary to reproduce the problem。这将有助于其他人回答问题。
1小时前关闭。
Improve this question
根据 Delphi 中的参数提示,MessageDlg应该支持在最后一个参数的字符串数组中定义的自定义按钮名称。例如

我无法使其工作。我声明了一个常量3元素的字符串数组,但编译器声称没有此格式的MessageDlg重载版本。
有谁能告诉我这应该如何工作,或者是参数帮助中的错误。

y53ybaqx

y53ybaqx1#

没问题,效果很好

var
CustomButtonCaptions: array of string;
begin
 SetLength(CustomButtonCaptions , 5 );
 CustomButtonCaptions[0] := 'Button-1';
 CustomButtonCaptions[1] := 'Button-2';
 CustomButtonCaptions[2] := 'Button-3';
 CustomButtonCaptions[3] := 'Button-4';
 CustomButtonCaptions[4] := 'Button-5';

  case MessageDlg('MSG',TMsgDlgType.mtConfirmation,mbYesAllNoAllCancel,0,TMsgDlgBtn.mbClose,CustomButtonCaptions) of
      0:
      begin

      end;
  end;
end;

//或

MessageDlg('MSG',TMsgDlgType.mtConfirmation,mbYesAllNoAllCancel,0,TMsgDlgBtn.mbClose, TArray<string>(VarArrayOf(['Button-1','Button-2','Button-3','Button-4','Button-5'])))

//或

MessageDlg('MSG',TMsgDlgType.mtConfirmation,mbYesAllNoAllCancel,0,TMsgDlgBtn.mbClose, ['Button-1','Button-2','Button-3','Button-4','Button-5']);

相关问题