双击列头即可对该列排序的控件怎么做呀？菜鸟诚心求教！ ( 积分: 100 )

L

lqhk_leo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-12

• #1

双击列头即可对该列排序的控件怎么做呀？菜鸟诚心求教！急死我了。。。

 

L

lqhk_leo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-12

• #2

双击列头即可对该列排序的控件怎么做呀？菜鸟诚心求教！急死我了。。。

 

B

bbgsgs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-12

• #3

哈哈。。。就是这么简单

先定义一个boolean型
VAR
aa : Boolean;

在DBGRID的OnTitleClick事件中写入如下即可：
PROCEDURE TForm1.DBGrid1TitleClick(Column: TColumn);
BEGIN
IF aa THEN
BEGIN
ADOQuery1.Sort := Column.FieldName + ' ASC';
aa := false;
END
ELSE
BEGIN
ADOQuery1.Sort := Column.FieldName + ' DESC';
aa := True;
END;
END;

 

L

lqhk_leo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-12

• #4

多谢兄弟，但是我要求的是双击列头，是不是要从TDBGrid类继承一个新的控件，然后自定义新的双击事件呢？

 

E

eclipsedev

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-12

• #5

EHLIB比较好！推荐

 

P

phzongna

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-12

• #6

procedure TfrmHireBook.dbgrTitleClick(Column: TColumn);
begin
if (not (column.Field is Tblobfield)) then
cds.IndexFieldNames:=column.Field.FieldName;
end;

 

L

lqhk_leo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-13

• #7

接受答案了，多谢兄弟们