Delphi XE2 中 MessageDlg 问题

Posted 2023-04-22

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if messagedlg('是否退出程序', mtWarning, [MBYES, MBNO],0)=mrno then
canclose:=false
else
canclose:=true;
end;

提示[DCC Error] Unit1.pas(69): E2003 Undeclared identifier: 'mtWarning'
[DCC Error] Unit1.pas(69): E2003 Undeclared identifier: 'Buttons'
[DCC Error] Unit1.pas(69): E2250 There is no overloaded version of 'MessageDlgPosHelp' that can be called with these arguments

建的是FireMonkey应用程序，求高手予以解决，多谢！

用messagebox就可以了，FIREMONKEY应该还没有规范了追问

messagebox需要加什么引用单元么？刚才试了一下，还是这个[DCC Error] Unit1.pas(69): E2003 Undeclared identifier: 'messagebox'
试了下用Vcl.Dialogs.messagedlg可以，就是风格上与FMX不一致。。。

参考技术A Uses 里加入Dialogs引用,应该就可以了吧追问

Vcl.Dialogs.messagedlg这样可以 Uses要加Vcl.Dialogs，因为还有一个FMX.Dialogs的单元。

有没有 Delphi XE2 样式库？

【中文标题】有没有 Delphi XE2 样式库？

【英文标题】：Is there any Delphi XE2 styles gallery?

【发布时间】：2012-01-20 12:35:29

【问题描述】：

在 XE2 中有一个新功能：'styles'，用于 VCL(.vsf) 和 Firemonkey (.styles)，其中一些在 C:\Program Files\Embarcadero 中提供\RAD Studio\9.0\Redist\styles 目录。

创建新样式似乎很容易，是否有任何“样式库”网站或博客？

【问题讨论】：

我在这个位置上传了一组 Vcl 样式 code.google.com/p/vcl-styles-utils/wiki/VclStylesCollection

【参考方案1】：

不，目前没有像 FireMonkey 或 VCL 样式的样式库这样的东西。但是，如果您想创建自己的，请尝试我的博客中的这些条目，它们显示了一种简单的方法，只需单击几下即可创建/修改新的 VCL 样式和 FireMoney 样式。这两篇文章都包含可供下载的其他样式。

Exploring Delphi XE2 – Tweaking the FireMonkey Styles Exploring Delphi XE2 – VCL Styles

【讨论】：

是的，您的博客是我关于样式的参考，但我认为可能会有其他人（Embarcadero ??）分享他的作品。

+1 因为我不能提供更多。除了这个，我还没有看到任何官方的在线演示。我不明白为什么 Embarcadero 在开发像 Firemonkey 这样的东西时没有一些官方陈列室（除了几个例子）。