2011年5月12日 星期四

发现 TSplitter 在嵌套时不好用， 索性写了个替代品

万一| 万一的 Delphi 博客 |17:50:00

代替 TSplitter 的 TDirPanel 类:unit DirPanel; interface uses Classes, Controls, Forms, ExtCtrls; type TDirPanel = class(TCustomPanel) private FLine: TPanel; B: Boolean; F: Integer; protected procedure LineMouseDown(Sende...

唤醒控件曾经拥有的能力

万一| 万一的 Delphi 博客 |10:46:00

控件的祖先 TControl 有很多功能, 但它的有些子孙确丧失了很多(为了专用).譬如 TBevel 就基本就没有把一些常规的事件继承下来, 那些没有被继承的功能一般都隐藏在 protected 区, 如果重新继承是可以使用的.这里尝试了另外一种方法: 自己没有继承时, 问一问有继承的兄...