如何制作在delphi中的showmessage

如何制作在delphi中的showmessage

ShowMessage 函数是 delphi 常用的函数之一，其函数原型定义如下：




此函数用于显示一个消息对话框，但很简单，只包含一个 OK（确定）按钮。
如果想要获取更好的效果或是更多的功能，可以使用 MessageBox、MessageDlg 函数：

showmessage标题默认为工程名,可以改工程标题。（project-->options-->application-->title） 改delphi自带代码的话比较麻烦，推荐还是用messagebox. 写个过程放在代码段最前段调用 procedure showmessage(const msg, title: string); begin messagebox(application.handle, pchar(msg), pchar(title), mb_ok); end; //调试即可 procedure tform1.button1click(sender: tobject); begin showmessage('test','看看标题'); end;