请问如何判断双击的是DBGRID的标题还是DBGRID中的一行？

[whzq007]

请问如何判断双击的是DBGRID的标题还是DBGRID中的一行？因为当单击标题的时候程序会进行排序，双击某一行的时候会弹出一个窗口，但现在当双击标题的时候也会弹出窗口。我希望双击标题的时候不响应DBGRID的双击事件。

[stherix]

var
a:TGridCoord;
begin
a:=DBGrid1.MouseCoord(Mouse.CursorPos.X,Mouse.CursorPos.Y);
if a.X=0 then//也可能是if a.Y=0 then 即不太清了
Exit;
//yourcode here
end;

[kaikai_kk]

单击标题排序时写在onTitleClick事件中,双击弹出窗口写在onDblClick事件中
怎么会响应,乱弹窗口呢????

[whzq007]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB;

type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
procedure DBGrid1DblClick(Sender: TObject);
procedure DBGrid1TitleClick(Column: TColumn);
procedure DBGrid1CellClick(Column: TColumn);
private
FClickCell:Boolean; //判断点击的是格子里的数据还是标题
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
if FClickCell then //如果是格子
ShowMessage('格子')
else ShowMessage('不是格子'); //如果不是格子
FClickCell:=False; //执行完后将FClickCell初始为False
end;

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
FClickCell:=False; //点击标题时
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
FClickCell:=True; //点击格子时
end;

end.