如何改变弹出对话框的标题？

Question

有时我在程序里需要弹出一些对话框，我用showmessage()函数，它弹出的对话框的标题是我存储的project的标题，比如project1,真是很难受啊！有时我调用MessageBox函数，它弹出的对话框标题可以指定，但标题旁最左上角的小图标是个飞行的windows，也很难受。请问有无一个让我满意的方法，可以改变标题，又避过MessageBox()?

Answer 1

菜单：project->options->"application"页->title  修改为你想要的

Answer 2

在工程文件中加上这2句
Application.Title:='你想要的标题';
Application.Icon:=你想要的图标;
Application.MessageBox()中显示的是你指定的图标
ShowMessage()显示的是你指定的标题

Answer 3

直接用MessageBox不就完事了，还可以指定图标。
ShowMessage主要还是自己调试用。

Answer 4

用Application.MessageBox('提示消息','你想要的标题',整数)
整数代表出现的按钮类型