访问隐藏属性(如何不建立派生部件就可以访问隐藏.txt

delphi 编程技巧

访问隐藏属性(如何不建立派生部件就可以访问隐藏属性) (2001年5月25日) 

本站更新  分类:控件使用   作者:David Souchard  推荐:   阅读次数:118  
(http://www.codesky.net)  

--------------------------------------------------------------------------------

某些部件具有很有用的属性，但由于某些原因它们在保护段中声明，所以程序员不能轻易访问它们。例如，TStringGrid, TDrawGrid, TDBGrid和TcustomGrid的一般派生类有一个InplaceEditor属性，代表用来记录编辑中的单元格的值的文本编辑框。但是你不能直接访问该属性，因为它被声明为保护。
最简单的方法是为你的部件生成子类（派生）类，只是实现一个目的或把保护段public化。
例如：

type
TDBGridX = class(TDBGrid)
public
property InplaceEditor;
end;

我们不需要安装这个新部件并注册到面板中（这样太过麻烦）。任何时候只要我们想访问该属性，只要把此对象（如DBGrid1）强制转换成我们的新类。如：
TDBGridX(DBGrid1).InplaceEditor.SelectAll;

注意：InplaceEditor会为零（直至EditorMode第一次设成True（通过代码或用户按F2）。