关于如何在排序dbgrid是显示升序将序的三角符号

                            
我自己做了一个函数实现如下:   
  {自定义的用于排序的函数}  
  function   GetSortMode1:string;  
  var   tempstr,sortstr,initstr   :string;  
  begin  
            //获取排序字符串,“字段   排序常数”  
            sortstr   :=   invoicequiry.ADOQuery1.Sort;  
            //利用空格获取排序常数  
            tempstr   :=   copy(sortstr,pos('   ',sortstr),255);  
   
            //uppercase转化成大写字母方便比较  
            if   (uppercase(trim(tempstr))   =   'ASC')   then  
            begin  
                      tempstr   :=   'DESC';  
            end  
            else  
            begin  
                      tempstr   :=   'ASC';  
            end;  
            result   :=   tempstr;  
  end;  
   
  然后再ontitleclick中实现如下:  
  procedure   Tinvoicequiry.DBGrid1TitleClick(Column:   TColumn);  
  var   invoiceid,tempstr,sortstr,inittitile   :string;  
  begin  
          adoquery1.Sort   :=   column.DisplayName   +   '   '   +   Getsortmode1;  
  end;  
   
  测试时可以达到排序的效果,现在的问题是如何在排序的那个属性的那一栏内实现排序的标记呢?就是那些三角符号,在我的程序中应该怎么添加呢,  
  请在我的代码的基础上给予指点,多谢!  
 

查看回复