摘要: 代替 TSplitter 的 TDirPanel 类:unit DirPanel;interfaceuses Classes, Controls, Forms, ExtCtrls;type TDirPanel = class(TCustomPanel) private FLine: TPanel; B: Boolean; F: Integer; protected procedure LineMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer); procedur 阅读全文
posted @ 2011-05-12 17:50 万一 阅读(2690) 评论(1) 推荐(1) 编辑
摘要: 控件的祖先 TControl 有很多功能, 但它的有些子孙确丧失了很多(为了专用).譬如 TBevel 就没有把一些常规的事件继承下来, 那些没有被继承的功能一般都隐藏在 protected 区, 如果重新继承是可以使用的.这里尝试了另外一种方法: 自己没有继承时, 问一问有继承的兄弟、叔伯获取其它亲戚; 当然应先确保自己的祖先有该功能且没被覆盖过.通过传统的继承法让 TBevel 相应双击事件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 阅读全文
posted @ 2011-05-12 10:46 万一 阅读(3573) 评论(9) 推荐(1) 编辑