向Foxmail里面信件列表的那种Gird(点上面标题下面内容可以自动排序的那种，并且被选中标题上有个三角箭头的那种）是怎么实现的阿(76分给大家拜年)

[小伍老师]

向Foxmail里面信件列表的那种Gird(点上面标题下面内容可以自动排序的那种，并且被选中标题上有个三角箭头的那种）是怎么实现的阿(76分给大家拜年)

[risesoft]

帮你 UP,我也想知道

[Arthur]

到大富翁论坛的离线包中去找吧 有你想要的东东


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

┏━┓┃龙翔九天┃┏━┓
┃逢┃┗━━━━┛┃迎┃
┃千┃　━　 ━━ ┃新┃
┃禧┃━┳━┏━┓┃春┃
┃举┃┃┃┃┗━┛┃普┃
┃世┃┃┃┃┏┳┓┃天┃
┃共┃　┃　┃╋┃┃同┃
┃欢┃　┛　┗┻┛┃庆┃
┗━┛　　　　　　┗━┛

[firewing]

自己继承一个啦。只要在onclick事件中实现排序，和重画该控件的canva就行。

[joannahello]

在dbgrid的doubleClick中：
if dbGrid1.SelectedField=ADOTableBillingToChannelchannel then
DataModule1.ADOTableBillingToChannel.Sort:='channel_name ASC';
end

[xyzguan]

你搜索以下“排序”，就能找到，别人的东西我不好转贴，我是这样学来的：）（省分）

[fable]

procedure Tform1.DBGrid1TitleClick(Column: TColumn);
Var SubSqlStr,SqlStr:String;
begin
SqlStr := Query1.sql.Text;
if Pos('order by',SqlStr)>0 then
SubSqlStr := LeftStr(SqlStr,Pos('order by',SqlStr)-1)
else
SubSqlStr := SqlStr;
SubSqlStr := SubSqlStr + ' order by ';
SubSqlStr := SubSqlStr + Column.FieldName;
With Query1 do
begin
Close;
Sql.Clear;
Sql.Add(SubSqlStr);
Open;
end;
end;

[票票飞扬]

用ListView，有排序的帮助。

[VSaber]

自画箭头了！至于排序，如果标题栏有OnClick事件就自己处理排序了（我没用过这个控件），如果没有这个事件可能就麻烦一点，自己看看源代码分析，找到标题栏的handle，发消息给它处理！

[lss983]

用第三方控件，一个叫DBGridEH的东东啊，上网应该可以找到啊