引言：
很多朋友在使用DBGrid控件时，抱怨没有点击标题栏便可自动排序的功能，实际上通过ADOQuery或其它数据集组件的Sort属性配合DBGrid的OnTitleClick事件，可以方便地实现此功能。
摘要：
delphi的vcl技术使很多程序员能够非常快速的入门：程序员门只要简单的拖动再加上少量的几个pascal语句，呵呵，一个可以运行得非常良好的delphi程序！恭喜你，你已经可以进行程序开发这个伟大的事业了。不过，当你学了一段时间后也许就不这么想了哦。因为delphi是支持面向对象的语言，其实所有的vcl component都是基于面向对象的语言设计的，那么当我们用这些面向对象的东东来设计出......
摘要：
{功能：模拟nokia手机的输入法控件，继承自tcustomedit作者：coolslob支持：coolslob # 163.com 最后更新：2004/12/11}unit nokiaedit;
interface
uses sysutils, classes, controls, stdctrls, extctrls, dialogs;
type keysetint = -1..9; ......
巧用DBGrid控件的Sort属性实现“点击标题栏自动排序功能”。
很多朋友在使用dbgrid控件时,抱怨没有点击标题栏便可自动排序的功能,实际上通过adoquery或其它数据集组件的sort属性配合dbgrid的ontitleclick事件,可以方便地实现此功能.因为sort属性可以让活动数据集按指定的字段进行排序,也可以选择排序方式（升序/降序）,所以我们只要在ontitleclick事件中设置排序字段与排序方式即可,如以下代码:procedure tform1.dbgrid1titleclick(column: tcolumn); 【程序编程相关:
如何在delphi下和.net建立的we】 【推荐阅读:
将应用程序11M内存占用，降至500K！】var i : integer; 【扩展信息:
怎样从indy9.0的查询结果中得到邮件】 begin for i:= 1 to dbgrid1.columns.count do begin //恢复所有标题字体为默认 dbgrid1.columns[i-1].title.font.color := clwindowtext; dbgrid1.columns[i-1].title.font.style := []; end; ...
下一页 摘要：
procedure autofitable(agrids: tstringgrid);//传入tstringgrid对像即可, 2004/10/28,coolslobvar i, j: integer; maxlenrow: integer; currowlen: integer;begin inherited; for j := 0 to agrids.colcount - 1 do begi......
