仅运行一次实例+cxgrid按字段名取值+对话框制作

网上查资料所得,搭框架学习用,本意只想要实现让程序唯一运行并在实例已经运行时激活窗口,用了网上好些方法都有缺陷,比如激活已经运行的实例就很难实现,现在这个单元已经完美实现了,后来发现在delphi 2010里还有他的特殊性,最后终于测试通过了,我在程序文件我做了解释.