Delphi 制作的动态库中是没有消息循环的，对对于很多基于消息响应的事件无法触发，本实例将实现一个消息循环，以解决上述问题-Delphi in the production of dynamic libraries is not the message loop for message-based response to many events can not be triggered, this example will imple