想写一个只对title起作用的双击事件dbgrid，，

[yudechibang88]

多谢各位了。。。。

[lishan200012]

procedure TDlgK3t_icitemForm.DBGrid1TitleClick(Column: TColumn);
begin
if adoquery1.State=dsbrowse then
  begin
  if blOrder then
    begin
    ADOQuery1.Sort := Column.FieldName + ' ASC';
    dbgrid1.Columns[Column.Field.FieldNo-1].Title.Caption:=Column.FieldName+ '△';
    blOrder:=false;
    end
  else
    begin
    ADOQuery1.Sort := Column.FieldName + ' DESC';
    blOrder:=true;
    dbgrid1.Columns[Column.Field.FieldNo-1].Title.Caption:=Column.FieldName+ '▽';
    end;
  end;
end;

[lishan200012]

public
   plorder:boolean;

补充

[gxgyj]

定义一个过程：
procedure SortTitle(TAQ:TADOQuery;RG:TRzDBGrid;col:TColumn);//RZGRID排序


procedure TForm_yyxx.SortTitle(TAQ: TADOQuery; RG: TRZDBGrid; col: TColumn);
begin
try
if (Not TAQ.Active) or (TAQ.RecordCount=0) then exit;
if Pos('ASC',string(TAQ.sort))=0 then
TAQ.Sort :=col.fieldname + ' ASC'
else
TAQ.Sort := col.fieldname + ' DESC';
except
exit;
end;
end;


调用：
procedure TForm_yyxx.RzDBGrid1TitleClick(Column: TColumn);
begin
SortTitle(TADOQuery(RzDBGrid1.DataSource.DataSet),RzDBGrid1,column);
end;

[haitao]

在鼠标down和up事件里记住坐标
在dblclick事件里比较坐标位置是否属于title

[yudechibang88]

已经解决，使用全局变量解决的。