Teng_s2000的专栏

方法一：在Richedit的onselectchange事件中加入：var row,col:integer;beginwith richedit1 dobegin//获得选区开始处的行号row:=sendmessage(handle,EM_linefromchar,selectstart,0);//获得列号col:=selstart-sendmessage(handle,EM_lineindex,

【转贴】 【TDBSumList说明】     你可以使用TDBSumList在可视动态变化数据集中进行记录统计。在你想查看的数据集中设置相关的数据字段，然后写 SumListChanged 事件来指定在TDBSumList发生改变后所要做的操作。TDBSumList 的 SumCollection 属性上一个 TDBSum 对象容器。每个 TDBSum 对象是一个可以指定集合值的元件。 Fiel