ERP框架源程序 TopERP

NeoForm for Delphi6 -------------------------------------------------------------------------------- 电子日记本的 NEO 窗口制作得非常漂亮，网上流传一些制作方法，在研究之后， 发觉使用 TImage 拼凑，以及 Unit 单元中“一大段”代码对于我这个对源码要求 干净整洁的人来说，总觉得不是个味。于是自己动手改进，采用控件加一个TFORM 继承类来实现。 特点： 1.封装完成，目标窗口整洁。便于设计期摆放控件。 2.附加磁性和顶层显示属性。 安装方法： 1.安装 Q_NeoForm.pas 控件。 2.添加搜索路径。 使用方法： 1.在普通窗口中添加 Q_NeoForm 控件。 2.在 use 中添加 NeoForms 。 3.将 TForm1=Class(TForm) 改为 TForm1=Class(TNeoForm)。 当然，您还可以制作一个通用模板重复使用。 属性说明： Q_NeoForm: BoldCaption:Boolean 窗口标题是否使用粗字体。 Magnet:Integer 磁性窗口的磁性度。 TopMost:Boolean 是否顶层显示。 系统按钮和边界属性可通过窗口的相关值进行调整。 已知问题： 在使用鼠标拖动边界改变尺寸时闪烁严重，作者试图使用 Double Buffer 改进， 效果不明显。 本软件修改自网上流传的 NeoForm 代码，在此向原作者表示感谢，同时您可免费 使用本软件，如您对其进行改进，请MAIL一份给我，谢谢！ 秋雨痕 http://q1xp.onchina.net q.yuhen@263.net 张家远附加说明 1、关于最大最小化按钮的删除 由于其均继承于TFORM，所以只需在主FORM的相关属性中设置即可。 2、加入窗体所有控件随窗体等比例变化功能。