一个基于 VCL 的模仿安卓 Toast 的提示消息控件

github 上有人做了一个提示消息控件。测试了一下，挺好用的。fork 了一个，做了一些修改。

先上地址：

GitHub - pcplayer/DelphiToastMessage

在原有的上面新增功能：

1. 增加了类方法，需要使用它，直接调用类方法。用起来就简单一些，无需事先创建对象再去使用；

2. 增加的类方法增加了一个指定 Parent 的参数。同一个实例，可以每次显示到不同的 Form 上面。不需要每个 Form 里面都创建一个实例。

3. 增加了一个消息列表。一条消息没有显示完成前，程序再次调用这个控件，会把这次调用存入消息队列。上一条消息显示完成，马上显示队列里面的新消息。

4. 消息文字如果太多，计算宽度，宽度最大是 Form 宽度的一半。这样可能就会变成显示多行消息。这部分功能是 Delphi 网友秋风做的。

用法

用法非常简单，引用这个单元，需要显示消息的地方只需要一行代码：

TToastMessage.ToastIt(Self, tpSuccess,'Success','My Text');

总结

在别人已经实现的代码基础上，做一些简单的修改，来来回回也花了不少时间。中间还有一个版本有严重的 BUG。写好代码不容易，人都会犯错，人写的程序没有 BUG 才是奇怪。