实际参数太多（消息对话）

Question

我继承了一个程序，它有很多问题。最新的一个是太多实际参数警告：

  if MessageDlgPos('IS THIS CORRECT? ' , mtConfirmation,
  **[mbyes, mbno], 0, 400, 450, mbno) = mrno then begin**
    edtPstvEmplyNmbr.SetFocus;
    xitFlg:= True;

粗体部分是错误突出显示的位置。

注意：程序工作，只是不在我的机器上。它是使用相同版本的Delphi（7）开发的，但是在clx（kylix）环境中。我想我（可能）已经解决了clx和vcl（我当前的环境）之间的所有不兼容问题，但可能是我错过了一个产生此错误的组件。我会尽力澄清任何问题，但请记住，我只是在几个月内开发Delphi。

Answer 1

Delphi的VCL和Kylix的CLX并不完全兼容。特别是，一些类似命名的函数会使用不同数量的参数，因为您已经了解了第一手资料。

Delphi的现代版本支持您尝试调用的MessageDlgPos版本，但很明显Delphi 7没有。 可能发生的是当VCL版本只有六个参数时，CLX引入了七参数重载，然后后来的Delphi版本将CLX版本移植回VCL。请记住，Delphi 7已有十多年的历史了。

要查看可以使用的功能版本，请查看 Dialogs.pas 。

如果您有六个参数版本，您可能只需删除最后一个参数，然后只处理默认按钮可能不是您想要的那个事实。另一种方法是调用MessageBox，这将允许您指定默认按钮，但代价是能够指定窗口位置。