代码示例:你是真的对Delphi很了解么?
2006-02-04 13:29:55 来源:WEB开发网 闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾惧綊鏌熼梻瀵割槮缁炬儳缍婇弻鐔兼⒒鐎靛壊妲紒鐐劤缂嶅﹪寮婚悢鍏尖拻閻庨潧澹婂Σ顔剧磼閹冣挃闁硅櫕鎹囬垾鏃堝礃椤忎礁浜鹃柨婵嗙凹缁ㄧ粯銇勯幒瀣仾闁靛洤瀚伴獮鍥敍濮f寧鎹囬弻鐔哥瑹閸喖顬堝銈庡亝缁挸鐣烽崡鐐嶆棃鍩€椤掑嫮宓佸┑鐘插绾句粙鏌涚仦鎹愬闁逞屽墰閹虫捇锝炲┑瀣╅柍杞拌兌閻ゅ懐绱撴担鍓插剱妞ゆ垶鐟╁畷銉р偓锝庡枟閻撴洘銇勯幇闈涗簼缂佽埖姘ㄧ槐鎾诲礃閳哄倻顦板┑顔硷工椤嘲鐣烽幒鎴旀瀻闁规惌鍘借ⅵ濠电姷鏁告慨顓㈠磻閹剧粯鈷戞い鎺嗗亾缂佸鏁婚獮鍡涙倷閸濆嫮顔愬┑鐑囩秵閸撴瑦淇婇懖鈺冪<闁归偊鍙庡▓婊堟煛鐏炵硶鍋撻幇浣告倯闁硅偐琛ラ埀顒冨皺閺佹牕鈹戦悙鏉戠仸闁圭ǹ鎽滅划鏃堟偨缁嬭锕傛煕閺囥劌鐏犻柛鎰ㄥ亾婵$偑鍊栭崝锕€顭块埀顒佺箾瀹€濠侀偗婵﹨娅g槐鎺懳熺拠鑼舵暱闂備胶枪濞寸兘寮拠宸殨濠电姵纰嶉弲鎻掝熆鐠虹尨宸ョ€规挸妫濆铏圭磼濡搫顫嶇紓浣风劍閹稿啿鐣烽幋锕€绠婚悹鍥у级瀹撳秴顪冮妶鍡樺鞍缂佸鍨剁粋宥夋倷椤掍礁寮垮┑鈽嗗灣閸樠勭妤e啯鍊垫慨妯煎亾鐎氾拷

代码示例:你是真的对Delphi很了解么?
PRocedure StepEditor( strgrid: TStringGrid; Step: TStep );
var
sValue, sField: string;
EditorClass: TStepEditorClass;
Editor: TStepEditor;
begin
sField := strgrid.Cells[0, strgrid.Selection.Top];
sValue := strgrid.Cells[1, strgrid.Selection.Top];
EditorClass := EditorClassList.Editors[ sField ];
Editor := EditorClass.Create;
Editor.Field := sField;
Editor.Step := Step;
Editor.Edit( sValue );
Editor.Free;
strgrid.Cells[ 1, strgrid.Selection.Top ] := sValue;
end;
EditorClass 是一个Class of Class, 也就是类的类
比如
TFormClass = Class of TForm;
但是不同于:TFormClass = Class( TForm ); 这是两个概念!
而 EditorClassList 里面存放的就是 类的类的列表;
Editor := EditorClass.Create;
Create是类方法,而不是对象方法,所以可以由 EditorClass来创建EditorClass的一个实例
补充:
TStepEditor = Class( TObject )
...
End;
TStepEditorClass = Class of TStepEditor;
Object Inspector 为什么能够提供一个方便的编辑环境?
为什么不同的字段,供选择的值不一样,校验的方式不一样,弹出的编辑框
不一样?因为根据不同的字段类型,注册了不同的属性编辑器 Propety Editor;
简化Delphi提供的注册属性编辑器的函数,可以描述为以下:
RegisteryPropertyEditor( PropertyFieldType, EditorClass );
^此处为类型名,如 Bool , Integer, ...等等
^此处为对应的编辑器的类名,注意,不是类名的字符描述
实际运行的时候,用户点击Object Inspector 的一个字段的时候,
Delphi内部就搜索该字段类型对应的编辑器类;然后由找到的类的类,创建该类的一个实例;
进行相关的操作(决定是否有下拉框,是否有一个按钮等等)
更多文章
- ››Delphi实现把10进制转换成16进制的函数进制转化
- ››Delphi中将字符串按给定字符分隔(似split函数功能...
- ››Delphi 动态创建窗体,锁定窗口赋值
- ››Delphi 与 VC 共享接口和对象
- ››Delphi图像处理 -- 表面模糊
- ››Delphi之多线程实例
- ››Delphi SelectSingleNode的使用 根据节点属性获取...
- ››Delphi接口详述
- ››delphi 远程调试
- ››代码隐藏文件如何与页面链接
- ››真的,为什么要用Hibernate?
- ››Delphi与DirectX之DelphiX(34): TDIB.Lightness()...
赞助商链接