如何写出象ttable, tadotable ,tquery,tadoquery 等控件一样的自动下拉显示field属性
delphi vcl在delphi 中有很多源码,但是有些关键的属性编辑器却找不到,下面我将举几个例子来说明一下 【程序编程相关:一个很实用的Ehlib排序函数,适合AD】 【推荐阅读:DBGrid中用光标键控制Cell 】我们可以研究一下tdbedit的两个关键属性一个datasource,datafield. 【扩展信息:MSN / QQ 中的动画表情 在Del】示例如下
ttestcontrol=class(twincontrol) private fdatalink: tfielddatalink; //定义一个存储字段的属性 function getdatafield: string; function getdatasource: tdatasource;procedure setdatafield(const value: string);
procedure setdatasource(const value: tdatasource); published //下面说明时要用到 //property resultfield :string read getdatafield write setdatafield; property datafield: string read getdatafield write setdatafield; property datasource: tdatasource read getdatasource write setdatasource;end;
//获取字段名 function ttestcontrol.getdatafield: string; begin result := fdatalink.fieldname; // end; //获取数据源 ... 下一页