各位大大好:
小弟有一问题，我在dbgrid的 DblClick 中写有code，但我却发现我在双击title时，DblClick也会起作用，而我在OnTitleClick中又另有code,
能否让它在双击title时不起作用?

編輯記錄

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
procedure DBGrid1DblClick(Sender: TObject);
procedure DBGrid1TitleClick(Column: TColumn);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
ShowMessage('AA');
end;
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
ShowMessage('BB' IntToStr(COlumn.Index));
end;
end.

我用這段程式去試並沒有您說的情況...

非常感谢malanlk大大的关注小弟的问题
确实,您的例程中并无这种情况产生,但如果您再增加一个adotable1和DataSource1,随便连一张table,整个code如下,就会产生我所说的问题(我在TitleClick中的code,目的是为了可以在title上单击时,产生正反向的排序):



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;
ADOTable1: TADOTable;
procedure DBGrid1DblClick(Sender: TObject);
procedure DBGrid1TitleClick(Column: TColumn);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
ShowMessage('AA');
end;
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
case Column.Index of
0 : ;
5 :
else
if adotable1.Sort = Column.FieldName ' ASC' then
adotable1.Sort := Column.FieldName ' DESC' // Sort by Clicked Column Desc
else
adotable1.Sort := Column.FieldName ' ASC'; // Sort by Clicked Column Asc
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
end.

編輯記錄

或者只要去掉下面 ShowMessage('BB'+IntToStr(COlumn.Index));
这一句,也会出现我所言的情况



===================引 用 malanlk 文 章===================
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
procedure DBGrid1DblClick(Sender: TObject);
procedure DBGrid1TitleClick(Column: TColumn);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
ShowMessage('AA');
end;
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
ShowMessage('BB' IntToStr(COlumn.Index));
end;
end.

我用這段程式去試並沒有您說的情況...

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
procedure DBGrid1DblClick(Sender: TObject);
procedure DBGrid1TitleClick(Column: TColumn);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
var
IsTitleClick: Boolean = False;
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
if IsTitleClick then
begin
IsTitleClick := False;
Exit;
end;
ShowMessage('AA');
end;
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
Caption := 'BB' IntToStr(COlumn.Index); //ShowMessage('BB' IntToStr(COlumn.Index));
IsTitleClick := True;
end;

這樣就可以了!

感恩!