随笔分类 -  Delphi 面向对象

继承 封装 多态
摘要:窗体逐级继承: 窗体A-->窗体B-->窗体C 窗体A是基类窗体 突然有一天,不想使用继承的方式,但是我需要窗体C及基类窗体的 所有窗体控件==》怎么办。 最好不要重新布局窗体。 技巧: 在窗体C(已经继承的窗体) 全选复制Ctrl+C 选中所有控件, 到一个新的窗体 Ctrl+V 粘贴即可实现将基 阅读全文
posted @ 2017-03-08 12:30 海蓝7 阅读(151) 评论(0) 推荐(0) 编辑
摘要:背景:某一天不小心把基类函数写成了 虚函数virtual,子类override 重写时,有同事需要跳过父类执行祖父类的方法代码; 发现 T祖父类(self).**方法(),时异常。因为虚函数转型为祖父类时,是多态的形式,还是会执行本子类的方法,所有造成一种循环执行代码,造成栈溢出 ; 网上百度到 h 阅读全文
posted @ 2016-10-28 15:03 海蓝7 阅读(1436) 评论(0) 推荐(1) 编辑
摘要:网友说是 hack 手段,还没有时间深入了解,不明觉厉。 [沪]风舞轻扬(81924320) 2016-10-25 16:59:08 阅读全文
posted @ 2016-10-26 10:03 海蓝7 阅读(442) 评论(0) 推荐(0) 编辑
摘要://继承基类窗体时,只是继承pas文件,没有继承 dfm窗体文件,手动添加 步骤: 1、pas文件为:ufrmMileageStatistic4SReportView.pas 2、新建txt 改名 ufrmMileageStatistic4SReportView.dfm 里面写入 inherited frmMileage4SReportView: TfrmMileage4SReportView... 阅读全文
posted @ 2016-08-18 20:44 海蓝7 编辑
摘要:TThreadList = class private FList: TList; FLock: TObject; FDuplicates: TDuplicates; public constructor Create; destructor Destroy; override; procedure Add(Item: Pointer)... 阅读全文
posted @ 2016-06-22 21:18 海蓝7 编辑

点击右上角即可分享
微信分享提示