[Delphi]删除控件时出现"Selection contains a component introduced in an ancestor form which cannot be deleted."错误的解决方法

今天在修改程序的时候突然发现删除继承的窗体中的控件属性时出现错误:Selection contains a component introduced in an ancestor form which cannot be deleted. 办法如下:在要删除提示控件的属性右键,选择:Revert to Inherited  或者 去继承组件的父类去操作。

定期删除程序运行日志文件

程序下生成的日志文件,随着程序的使用慢慢的变多,出于对软件的维护,我们要定期删除过早的日志文件。 索性就整个代码吧。  function DelAppLog():boolean;//是否删除程序运行日志文件 var     t:tdatetime;//用来临时存放日志文件的创建时间   begin     try       if fileexists(logfile) then    

VBA实现密函特效

古装电视上通常有这么个场景—–当接收人看完密函后,信件自动销毁的场景! 突发奇想,Excel应该也能实现这样的特效功能。 比如给小丽写的情书,她看完后自动消失,是不是很搞啊? 哈哈~怎么实现呢? 代码如下:(VBA方式) Private Sub Workbook_BeforeClose(Cancel As Boolean)      ActiveWorkbook.ChangeFileAcces