如標題, 我想讓mouse點選 DBGrid 某一欄位標頭時可以進行排序, 不知如果做??

又, 有沒有可能在標頭欄加上一個向上或向下的三角行表示排序的方向??

請參考一下：

http://www.8888i.net/dispQAInfo.php?id=1199

Fishman

豬寶寶的寫法給您參考

[code]

procedure TForm1.DG1TitleClick(Column: TColumn);
begin

if RightStr(ADOQUERY1.Sort,3)='ESC' THEN

ADOQUERY1.Sort:=Column.FieldName ' ASC'

ELSE
ADOQUERY1.Sort:=Column.FieldName ' DESC';

end;

[/code]

感謝Fishman指引的明燈, 小弟個人比較欣賞豬寶寶的簡潔寫法, 只不過豬寶寶的無法標示出目前的排序方向, 所以不材的小弟突發異想試著將兩者合併起來, 給看倌參考....借花獻佛....借花獻佛....

procedure TForm2.DBGrid1TitleClick(Column: TColumn);
procedure ClearSortMark;
var
ii,x:integer;
cStr:string;
c:TColumn;
begin
for ii:=0 to TDBGrid(Column.Grid).Columns.Count-1 do
begin
c:=TDBGrid(Column.Grid).Columns[ii];
cStr:=c.Title.Caption;
if (pos('▲',cStr)<>0) then
Delete(cStr, pos('▲',cStr),2)
else if (pos('▼',cStr)<>0) then
Delete(cStr, pos('▼',cStr),2);
c.Title.Caption:=cStr;
end;
end;
begin
ClearSortMark;
if RightStr(ADOQUERY1.Sort,3)='ESC' THEN
begin
ADOQUERY1.Sort:=Column.FieldName ' ASC';
Column.Title.Caption := Column.Title.Caption '▲';
end
ELSE
begin
ADOQUERY1.Sort:=Column.FieldName ' DESC';
Column.Title.Caption := Column.Title.Caption '▼';
end;
end;