DBGridEh大全

查看完全版本： dbgrid应用全书

论坛跳转到... ╋名狐堂 ├名狐介绍 ├名狐讲座 ╋技术论坛 ├VFP 论坛 ├DELPHI ├CGI、ASP、JAVA论坛 ├LINUX 论坛 ├dot NET论坛 ├其它语言C,C++,PB,VB ╋专题技术 ├VFP + SQL Server ├类的应用、VFP调用API ├企业管理与软件 ╋情感论坛 ├情感天地 ├招聘信息 ╋中华狐友会专版 ├管理版块 ├会员专版 <script language="javascript" type="text/javascript">BoardJumpListSelect('7','BoardJumpList','论坛跳转到...','',0);</script>

>> 我的帮助论坛（主要探讨 VFP 及其它编程技术） > DELPHI

用户名： 密码： 验证码： 保存： 不保存 一天 一月 一年 注册 搜索 忘记密码 我的权限

帖数：23　分页:[ 1]

(作者： songwt 2005-1-30 9:32:02)　 [资料] [短信] [好友] [邮箱] [只看楼主]

第 1 楼

　

dbgrid应用全书

您无权查看此精华帖，请先 登录或者 注册。

引用 回复 举报 Ç

(作者： songwt 2005-1-30 9:32:57)　 [资料] [短信] [好友] [邮箱]

第 2 楼

　

DBgrid应用全书	2
问题: Delphi5 - 隔行改变DBGrid网格颜色	3
在Delphi的DBGrid中插入其他可视组件	4
锁定DBGrid左边的列	6
使dbgrid的某几笔资料变色	7
实战Delphi数据网格色彩特效	8
点击DBGrid的Title对查询结果排序	10
去掉DbGrid的自动添加功能	11
dbgrid中移动焦点到指定的行和列	12
如何使DBGRID网格的颜色随此格中的数据值的变化而变化？	13
判断Grid是否有滚动条？	15
两个Grid的同步滚动	15
在Delphi中随意控制DBGrid 每一行的颜色简易方法	18
如何在DBGrid中能支持多项记录的选择	19
另外一种可以在在Delphi中随意控制DBGrid 每一行颜色的方法	23
在一个Dbgrid中显示多数据库	25
在 DBGrid 中如何让回车变为光标右移动	26
从 DBGrid 中复制记录	26
使用 DBGrid 的复选项（请参考如何在DBGrid中能支持多项记录的选择）	27
在DBGrid上Drag & Drop（拖放）	28
如何使DBGrid的指针不移动？	29
如何动态更新DBGrid的颜色？（请同时参考“如何使DBGRID网格的颜色随此格中的数据值的变化而变化？”）	29
使用DBGrid显示日期	30
在TDBGrid控件中实现拖放的另外一个思路（请同时参考在DBGrid上Drag & Drop（拖放））	30
在dbgrid表格中如何设置按回车键相当于单click？	30
Delphi 的 DBGrid 中的下拉列表和查找字段编程方法	31
Delphi中定制DBGrid控件	33
在DBGrid控件中显示图形	39
如何侦测DBGrid目前的记录与栏位资讯	40
用DbGrid制作edit录入时的下拉提示框	40
Delphi的dbgrid中根据数据的属性不同显示不同的颜色	44
给DBGrid加入排序功能（同时参考“点击DBGrid的Title对查询结果排序”）	44
将 DBGrid 中的内容输出至 Excel 或 ClipBoard	48
怎样获得DBGrid中的cell的坐标???	50
多层表头的DBGrid（推荐大家学习，很有用）	52
在 dbgrid 中实现 copy、paste 功能	53
禁止在DBGrid中按delete删除记录	54
给 DBGrid 添加搜索功能	55
数据网格自动适应宽度	58
移除DBGrid的垂直滚动条（参考“判断Grid是否有滚动条？”）	59
解决dbgrid上下移动的另外一种办法	61
关于DBGrid中下拉列表的两种设计比较	63
有关双击dbgrid排序的问题（想让用户双击dbgird控件的某一个字段	67
在DBGrid中，怎样才能让我能点击一个单元格选择整行，又可以编辑单元格的内容呢？【hongxing_dl 提供代码】	68
怎样在DbGrid的左边，实现像EXCEL那样的自动编号？这些编号与表无关.	69
如何将几个DBGRID里的内容导入同一个EXCEL表中？	70
自制精美易用的DBGrid【陈大峰】	75
在DELPHI中利用API实现网格内组件的嵌入	89
Ehlib使用说明	92
如何使用 Ehlib 实现自动排序	93
以下这段文字摘自《Delphi 园地》	94
DBGridEh控件的页脚属性怎么设？	101
如何实现在DbgridEh中不同的行显示不同的颜色？或某一些条件的行显示特定的颜色？	101
在dbgrideh中允许选择多行，如何知道哪些行被选中？	102
dbgrideh 上选择多行之后，要求把所选择的记录全部添加入SQL数据库的一个固定表中。	103
在dbgrideh中直接点击title就可按点击的那个字段排序的方法	103
ehlib的颜色控制及打印	104
DBGridEH 所有欄位自動寬度的實現	106



    
    
    

     
     
     [此贴子已经被作者于2005-1-30 10:06:00编辑过]
    
    
    

引用 回复 举报 Ç

(作者： songwt 2005-1-30 9:33:51)　 [资料] [短信] [好友] [邮箱]

第 3 楼

　

DBgrid应用全书

在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程，我们可以改变 DBGrid 的表头、网格、网格线的前景色和背景色，以及相关的字体的大小和风格。
    以下的示例程序演示了对 DBGrid 各属性的设置，使 Delphi 显示的表格就像网页中的表格一样漂亮美观。
    示例程序的运行：
    在 Form1 上放置 DBGrid1、Query1、DataSource1 三个数据库组件，设置相关的属性，使 DBGrid1 能显示表中的数据。然后，在 DBGrid1 的 onDrawColumnCell 事件中键入以下代码，然后运行程序，就可以看到神奇的结果了。本代码在 Windows98、Delphi5.0 环境下调试通过。
procedure TMainForm.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;State: TGridDrawState);
var i :integer;
begin
  if gdSelected in State then Exit;
//定义表头的字体和背景颜色：
    for i :=0 to (Sender as TDBGrid).Columns.Count-1 do
    begin
      (Sender as TDBGrid).Columns[i].Title.Font.Name :=/'宋体/'; //字体
      (Sender as TDBGrid).Columns[i].Title.Font.Size :=9; //字体大小
      (Sender as TDBGrid).Columns[i].Title.Font.Color :=$000000ff; //字体颜色(红色)
      (Sender as TDBGrid).Columns[i].Title.Color :=$0000ff00; //背景色(绿色)
    end;
//隔行改变网格背景色：
  if Query1.RecNo mod 2 = 0 then
    (Sender as TDBGrid).Canvas.Brush.Color := clInfoBk //定义背景颜色
  else
    (Sender as TDBGrid).Canvas.Brush.Color := RGB(191, 255, 223); //定义背景颜色
//定义网格线的颜色：
    DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
  with (Sender as TDBGrid).Canvas do //画 cell 的边框
  begin
    Pen.Color := $00ff0000; //定义画笔颜色(蓝色)
    MoveTo(Rect.Left, Rect.Bottom); //画笔定位
    LineTo(Rect.Right, Rect.Bottom); //画蓝色的横线
    Pen.Color := $0000ff00; //定义画笔颜色(绿色)
    MoveTo(Rect.Right, Rect.Top); //画笔定位
    LineTo(Rect.Right, Rect.Bottom); //画绿色的竖线
  end;
end; 

2003-11-5 17:30:00    
	查看评语»»»    

 2003-11-5 17:31:41    
原来还有这个办法啊，在没有DevExpress之前....
我会陆续添加的 
 
 2003-11-11 17:07:42    问题: Delphi5 - 隔行改变DBGrid网格颜色 
   在 Form1 上放置 DBGrid1、Query1、DataSource1 三个数据库组件，设置相关的属性，使 DBGrid1 能显示表中的数据。然后，在 DBGrid1 的 onDrawColumnCell 事件中键入以下代码，然后运行程序

代码:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
 DataCol: Integer; Column: TColumn; State: TGridDrawState);

var i:integer;
begin
  if gdSelected in State then Exit;  //隔行改变网格背景色： 
    if adoQuery1.RecNo mod 2 = 0 then
      (Sender as TDBGrid).Canvas.Brush.Color := clinfobk //定义背景颜色
  else
    (Sender as TDBGrid).Canvas.Brush.Color := RGB(191, 255, 223);  //定义背景颜色

  //定义网格线的颜色：
  DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
  with (Sender as TDBGrid).Canvas do //画 cell 的边框
  begin
    Pen.Color := $00ff0000; //定义画笔颜色(蓝色)
    MoveTo(Rect.Left, Rect.Bottom); //画笔定位
    LineTo(Rect.Right, Rect.Bottom); //画蓝色的横线
    Pen.Color := clbtnface; //定义画笔颜色(兰色)
    MoveTo(Rect.Right, Rect.Top); //画笔定位
    LineTo(Rect.Right, Rect.Bottom); //画绿色
  end;
end;

用BDE中的table1未能通过，颜色没有隔行变化。  
 
 2003-11-11 17:12:09    在Delphi的DBGrid中插入其他可视组件 
   Delphi提供了功能强大的 DBGrid组件，以方便进行数据库应用程序设计。但是如果我们仅仅利用DBGrid组件，每一个获得焦点（Grid）只是一个简单的文本编辑框，不方便用户输入数据。Delphi也提供了一些其他数据组件来方便用户输入，比如DBComboBox，DBCheckBox等组件，但这些组件却没有DBGrid功能强大。Delphi能不能象Visual Foxpro那样让DBGrid中获得焦点网格可以是其它可视数据组件以方便用户呢？其实我们可以通过在DBGrid中插入其他可视组件来实现这一点。

    Delphi对DBGrid处理的内部机制，就是在网格上浮动一个组件——DBEdit组件。你输入数据的网格其实是浮动DBEdit组件，其他未获得焦点地方不过是图像罢了。所以，在DBGrid中插入其他可视组件就是在网格上浮动一个可视组件。因此任何组件，包括从简单的DbCheckBox到复杂的对话框，都可以在DBGrid中插入。下面就是一个如何在DBGrid中插入DBComboBox组件的步骤，采用同样的办法可以插入其他组件。

  1、在Delphi 4.0中新建一个项目。

  2、分别拖动的Data Access组件板上DataSource、Table，Data Controls组件板上DBGrid，DBComboBox四个组件到Form1上。

  3、设置各个组件的属性如下：

rcf1对象 属性 设定植
Form1 Caption /'在DBGrid中插入SpinEdit组件示例/'
DataSource1 DataSet Table1
Table1 DatabaseName DBDEMOS
TableName /'teacher.DBF/'
Active True
DBGrid1 DataSource DataSource1
DBComboBox1 DataField SEX
DataSource DataSource1
Visible False
Strings Items. /'男/'| /'女/'

注意：我在这里用了Teacher.dbf，那是反映教职工的性别，只能是“男”或者是“女”。

  4、DrawDataCell事件是绘制单元格，当获得焦点网格所对应的字段与组合框所对应的字段一致时，移动组合框到获得焦点的网格上，并且使组合框可视，从而达到在DBGrid指定列上显示DBComboBox的功能。设置DBGrid1的OnDrawDataCell事件如下：

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);
begin
  if (gdFocused in State) then
  begin
    if (Field.FieldName = DBComboBox1.DataField ) then
    begin
      DBComboBox1.Left := Rect.Left + DBGrid1.Left;
      DBComboBox1.Top := Rect.Top + DBGrid1.top;
      DBComboBox1.Width := Rect.Right - Rect.Left;
      DBComboBox1.Height := Rect.Bottom - Rect.Top;
      DBComboBox1.Visible := True;
    end;
  end;
end;

  5、DBGrid指定单元格未获得焦点时不显示DBComboBox，设置DBGrid1的OnColExit事件如下：
procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
  If DBGrid1.SelectedField.FieldName = DBComboBox1.DataField then
    begin
      DBComboBox1.Visible := false;
    end;
end;

  6、当DBGrid指定列获得焦点时DrawDataCell事件只是绘制单元格，并显示DBComboBox，但是DBComboBox并没有获得焦点，数据的输入还是在单元格上进行。在DBGrid1的KeyPress事件中调用SendMessage这个 Windows API函数将数据输入传输到DBComboBox上，从而达到在DBComboBox上进行数据输入。因此还要设置KeyPress事件如下：

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if (key < > chr(9)) then
  begin
    if (DBGrid1.SelectedField.FieldName =DBComboBox1.DataField) then
    begin
      DBComboBox1.SetFocus;
      SendMessage(DBComboBox1.Handle，WM_Char，word(Key)，0);
    end;
  end;
end;

    程序在中文Windows 98，Delphi 4.015 下调试通过。希望本文能使你可以更加方便快捷的开发数据库应用程序。  
 

引用 回复 举报 Ç

(作者： songwt 2005-1-30 10:08:40)　 [资料] [短信] [好友] [邮箱]

第 4 楼

　

锁定DBGrid左边的列 
   我在使用 Delphi3 进行数据库编程的时候，希望 DBGRID 构件在显示数据的时候能象FoxPro 的 BROWSE 命令一样，锁定左边指定的几列不进行滚动，请问应用什么方法来实现？

    我们知道 Delphi 的 TStringGrid 有一个属性 FixedCols 来指定不滚动的列。虽然TDBGrid 不能直接使用这一属性，但通过强制类型转换也可以首先这一功能，因为这两个类都来自 TCustomGrid 类。下面我们以 Delphi 3.0的 Demos//Db//CtrlGrid 为例来说明具体的用法。在这个例子的 TFmCtrlGrid.FormShow 过程中加入如下一行： 

    TStringGrid(DbGrid1).FixedCols := 2; 

    运行该程序，在左右移动各列时，Symbol 列不会移动。除了这种方法，也可以采用下面的方法：首先在 Form 声明部分加上

    type TMyGrid = Class(TDBGrid) end; 

    然后在 TFmCtrlGrid.FormShow 过程中加入： 

    TMyGrid(DbGrid1).FixedCols := 2; 

    两者从形式上略有不同，但实质都是一样的。我们这里设置 FixedCols 为 2，这是因为在 DBGrid 构件最左侧有个指示列，如果你将 DBGrid 的 Options 属性的 dgIndicator 设为False，则应设置 FixedCols 为1。  

	
 使dbgrid的某几笔资料变色 
   你可在 DBGrid 元件的 DrawDataCell 事件中依资料的条件性来改变格子或文字的颜色.
如 :

OnDrawDataCell(...)
begin
  with TDBGrid(Sender) do
  begin
    if (条件) then
      Canvas.TextOut(Rect.Left + 4
    Rect.Top + 2

/'要显示的文字如表格的资料/');
end;

    而你会看到 DBGrid 的显示资料怎麽有重叠的情况那是因为原本DBGrid要显示的资料与 TextOut 所显示的资料重叠
    解决方法 :
    在 Query 元件所加入的栏位(在元件上按右键会有 Add Fields...的选单)在不要显示资料的栏位的 OnGetText 事件中有一参数设定为 False;

procedure TForm1.Query1Detail1GetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
  // 决定在 DBGrid 得知表格资料时要不要显示所得到的资料False -> 不显示
  // 就可避免与 TextOut 的文字重叠了
  DisplayText : = False;
end;
end;

    如果用 Delphi 3 处理很简单.例如:对表中某字段当其数值小于0时为红字其他为黑字.
在 DBGrid.OnDrawColumnCell(...) 中:

begin
  if TableField.AsInteger < 0 then
    DBGrid.Canvas.Font.Color := clRed
  else
    DBGrid.Canvas.Font.Color := clBlack;
  DBGrid.DefaultDrawColumnCell(...);
end;

这样对 Field 指定的格式仍旧生效不必重写.  

	
实战Delphi数据网格色彩特效 
   Delphi中的数据网格控件(TDbGrid)对于显示和编辑数据库中大量的数据起着十分重要的作用；然而，在使用数据网格控件的同时，也往往因为表格中大量的数据不易区分，而令操作者眼花缭乱。如何提高网格控件的易用性，克服它的此项不足呢？本文从改变数据网格的色彩配置角度，提出了一种解决办法。

    以下为数据网格控件的6种特殊效果的实现方法，至于数据网格控件与数据集如何连接的方法从略。

1. 纵向斑马线效果：实现网格的奇数列和偶数列分别以不同的颜色显示以区别相邻的数据列。
file://在DbGrid的DrawColumnCell事件中编写如下代码：

Case DataCol Mod 2 = 0 of
True: DbGrid1.Canvas.Brush.Color:= clBlue; file://偶数列用蓝色
False: DbGrid1.Canvas.Brush.Color:= clAqua; file://奇数列用浅绿色
End;
DbGrid1.Canvas.Pen.Mode:=pmMask;
DbGrid1.DefaultDrawColumnCell (Rect
DataCol
Column
State);

2. 纵向斑马线，同时以红色突出显示当前单元格效果：以突出显示当前选中的字段。

file://将上述代码修改为：
Case DataCol Mod 2 = 0 of
True: DbGrid1.Canvas.Brush.Color:= clBlue; file://偶数列用蓝色
False: DbGrid1.Canvas.Brush.Color:= clAqua; file://奇数列用浅绿色
End;
If ((State = [gdSelected]) or (State=[gdSelectedgdFocused])) then
If Not DbGrid1.SelectedRows.CurrentRowSelected then
DbGrid1.Canvas.Brush.Color:=clRed; file://当前选中单元格显示红色
DbGrid1.Canvas.Pen.Mode:=pmMask;
DbGrid1.DefaultDrawColumnCell (Rect 
DataCol 
Column 
State);

上述两种方法突出了列的显示效果。

3．在数据网格中以红色突出显示当前选中的行。
    设置DbGrid控件的Options属性中的dgRowSelect属性为真，Color属性为clAqua(背景色)
在DbGrid的DrawColumnCell事件中编写如下代码：

if ((State = [gdSelected]) or (State=[gdSelected gdFocused])) then
DbGrid1.Canvas.Brush.color:=clRed; file://当前行以红色显示，其它行使用背景的浅绿色
DbGrid1.Canvas.pen.mode:=pmmask;
DbGrid1.DefaultDrawColumnCell (Rect
DataCol
Column
State);

4．行突显的斑马线效果：既突出当前行，又区分不同的列（字段）。

file://其它属性设置同3，将上述代码修改为：
if ((State = [gdSelected]) or (State=[gdSelectedgdFocused])) then
begin
Case DataCol Mod 2 = 0 of
True : DbGrid1.Canvas.Brush.color:=clRed; file://当前选中行的偶数列显示红色
False: DbGrid1.Canvas.Brush.color:=clblue; file://当前选中行的奇数列显示蓝色
end;
DbGrid1.Canvas.pen.mode:=pmmask;
DbGrid1.DefaultDrawColumnCell (Rect
DataCol
Column
State);
end;

5．横向斑马线， 同时以红色突显当前行效果。

file://其它属性设置同3，将上述代码修改为：
Case Table1.RecNo mod 2 = 0 of file://根据数据集的记录号进行判断
True : DbGrid1.Canvas.Brush.color:=clAqua; file://偶数行用浅绿色显示
False: DbGrid1.Canvas.Brush.color:=clblue; file://奇数行用蓝色表示
end;
if ((State = [gdSelected]) or (State=[gdSelectedgdFocused])) then file://选中行用红色显示
DbGrid1.Canvas.Brush.color:=clRed;
DbGrid1.Canvas.pen.mode:=pmMask;
DbGrid1.DefaultDrawColumnCell (Rect
DataCol
Column
State);

6．双向斑马线效果：即行间用不同色区分，同时，选中行以纵向斑马线效果区分不同的列。

file://其它属性设置同3，将上述代码修改为：
Case Table1.RecNo mod 2 = 0 of file://根据数据集的记录号进行判断
True : DbGrid1.Canvas.Brush.color:=clAqua; file://偶数行用浅绿色显示
False: DbGrid1.Canvas.Brush.color:= clblue; file://奇数行用蓝色表示
end;
If ((State = [gdSelected]) or (State=[gdSelectedgdFocused])) then
Case DataCol mod 2 = 0 of
True : DbGrid1.Canvas.Brush.color:=clRed; file://当前选中行的偶数列用红色
False: DbGrid1.Canvas.Brush.color:= clGreen; file://当前选中行的奇数列用绿色表示
end;
DbGrid1.Canvas.pen.mode:=pmMask;
DbGrid1.DefaultDrawColumnCell (Rect
DataCol
Column
State);

    上述6种方法分别就数据网格控件的列和行的色彩进行了设置，读者可以根据自己的需要设置特效。该程序在Delphi5中测试通过。  

	

引用 回复 举报 Ç

(作者： songwt 2005-1-30 10:09:36)　 [资料] [短信] [好友] [邮箱]

第 5 楼

　

点击DBGrid的Title对查询结果排序 
关键词:DBGrid 排序  

    欲实现点击DBGrid的Title对查询结果排序，想作一个通用程序，不是一事一议，例如不能在SQL语句中增加Order by ...，因为SQL可能原来已经包含Order by ...，而且点击另一个Title时又要另外排序，目的是想作到象资源管理器那样随心所欲。

procedure TFHkdata.SortQuery(Column:TColumn);
var
  SqlStr,myFieldName,TempStr: string;
  OrderPos: integer;
  SavedParams: TParams;
begin
  if not (Column.Field.FieldKind in [fkData,fkLookup]) then exit;
  if Column.Field.FieldKind =fkData then
    myFieldName := UpperCase(Column.Field.FieldName)
  else
    myFieldName := UpperCase(Column.Field.KeyFields);
  while Pos(myFieldName,/';/')<>0 do
  myFieldName := copy(myFieldName,1,Pos(myFieldName,/';/')-1)+ /',/' + copy(myFieldName,Pos(myFieldName,/';/')+1,100);
  with TQuery(TDBGrid(Column.Grid).DataSource.DataSet) do
  begin
    SqlStr := UpperCase(Sql.Text);
    // if pos(myFieldName,SqlStr)=0 then exit;
    if ParamCount>0 then
    begin
      SavedParams := TParams.Create;
      SavedParams.Assign(Params);
    end;
    OrderPos := pos(/'ORDER/',SqlStr);
    if (OrderPos=0) or (pos(myFieldName,copy(SqlStr,OrderPos,100))=0) then
      TempStr := /' Order By /' + myFieldName + /' Asc/'
    else if pos(/'ASC/',SqlStr)=0 then
      TempStr := /' Order By /' + myFieldName + /' Asc/'
    else
      TempStr := /' Order By /' + myFieldName + /' Desc/';
    if OrderPos<>0 then SqlStr := Copy(SqlStr,1,OrderPos-1);
    SqlStr := SqlStr + TempStr;
    Active := False;
    Sql.Clear;
    Sql.Text := SqlStr;
    if ParamCount>0 then
    begin
      Params.AssignValues(SavedParams);
      SavedParams.Free;
    end;
    Prepare;
    Open;
  end;
end;
  
 
去掉DbGrid的自动添加功能 

关键词:DbGrid  

    移动到最后一条记录时再按一下“下”就会追加一条记录，如果去掉这项功能 
    procedure TForm1.DataSource1Change(Sender: TObject; Field: TField);
    begin
      if TDataSource(Sender).DataSet.Eof then TDataSource(Sender).DataSet.Cancel;
    end;
DBGrid不支持鼠标的上下移动的解决代码 
自己捕捉WM_MOUSEWHEEL消息处理
private
  OldGridWnd : TWndMethod;
procedure NewGridWnd (var Message : TMessage);
public

procedure TForm1.NewGridWnd(var Message: TMessage);
var
  IsNeg : Boolean;
begin
  if Message.Msg = WM_MOUSEWHEEL then
  begin
    IsNeg := Short(Message.WParamHi) < 0;
    if IsNeg then
      DBGrid1.DataSource.DataSet.MoveBy(1)
    else
      DBGrid1.DataSource.DataSet.MoveBy(-1)
  end
  else
    OldGridWnd(Message);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  OldGridWnd := DBGrid1.WindowProc ;
  DBGrid1.WindowProc := NewGridWnd;
end;      
 
dbgrid中移动焦点到指定的行和列 
   dbgrid是从TCustomGrid继承下来的，它有col与row属性，只不过是protected的，不能直接访问，要处理一下，可以这样：

    TDrawGrid(dbgrid1).row:=row;
    TDrawGrid(dbgrid1).col:=col;
    dbgrid1.setfocus;
就可以看到效果了。

    1 这个方法是绝对有问题的，它会引起DBGrid内部的混乱，因为DBGrid无法定位当前纪录，如果DBGrid只读也就罢了（只读还是会出向一些问题，比如原本只能单选的纪录现在可以出现多选等等，你可以自己去试试），如果DBGrid可编辑那问题就可大了，因为当前纪录的关系，你更改的数据字段很可能不是你想象中的
    2 我常用的解决办法是将上程序改为（随便设置col是安全的，没有一点问题）

    Query1.first;
    TDrawGrid(dbgrid1).col:=1;
    dbgrid1.setfocus;

    这就让焦点移到第一行第一列当中 
 

引用 回复 举报 Ç

(作者： songwt 2005-1-30 10:10:24)　 [资料] [短信] [好友] [邮箱]

第 6 楼

　

如何使DBGRID网格的颜色随此格中的数据值的变化而变化？ 
   在做界面的时候，有时候为了突出显示数据的各个特性（如过大或者过小等），需要通过改变字体或者颜色，本文就是针对这个情况进行的说明。

    如何使DBGRID网格的颜色随此格中的数据值的变化而变化。如<60的网格为红色？
    Delphi中数据控制构件DBGrid是用来反映数据表的最重要、也是最常用的构件。在应用程序中，如果以彩色的方式来显示DBGrid，将会增加其可视性，尤其在显示一些重要的或者是需要警示的数据时，可以改变这些数据所在的行或列的前景和背景的颜色。
　　DBGrid属性DefaultDrawing是用来控制Cell（网格）的绘制。若DefaultDrawing的缺省设置为True，意思是Delphi使用DBGrid的缺省绘制方法来制作网格和其中所包含的数据，数据是按与特定列相连接的Tfield构件的DisplayFormat或EditFormat特性来绘制的；若将DBGrid的DefaultDrawing特性设置成False，Delphi就不绘制网格或其内容，必须自行在TDBGrid的OnDrawDataCell事件中提供自己的绘制例程（自画功能）。
　　在这里将用到DBGrid的一个重要属性：画布Canvas，很多构件都有这一属性。Canvas代表了当前被显示DBGrid的表面，你如果把另行定义的显示内容和风格指定给DBGrid对象的Canvas，DBGrid对象会把Canvas属性值在屏幕上显示出来。具体应用时，涉及到Canvas的Brush属性和FillRect方法及TextOut方法。Brush属性规定了DBGrid.Canvas显示的图像、颜色、风格以及访问Windows GDI 对象句柄，FillRect方法使用当前Brush属性填充矩形区域，方法TextOut输出Canvas的文本内容。

　　以下用一个例子来详细地说明如何显示彩色的DBGrid。在例子中首先要有一个DBGrid构件，其次有一个用来产生彩色筛选条件的SpinEdit构件，另外还有ColorGrid构件供自由选择数据单元的前景和背景的颜色。

　　1.建立名为ColorDBGrid的Project，在其窗体Form1中依次放入所需构件，并设置属性为相应值，具体如下所列：

　　 Table1 DatabaseName: DBDEMOS
     TableName: EMPLOYEE.DB
     Active: True;
 　　DataSource1 DataSet: Table1
 　　DBGrid1 DataSource1: DataSource1
     DefaultDrawing: False
 　　SpinEdit1 Increment:200
     Value: 20000
 　　ColorGrid1 GridOrdering: go16＊1

　　2.为DBGrid1构件OnDrawDataCell事件编写响应程序：

//这里编写的程序是<60的网格为红色的情况，其他的可以照此类推
　　procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;Field: TField; State: TGridDrawState);
　　begin
　　 if Table1.Fieldbyname(′Salary′).value<=SpinEdit1.value then
  　　 DBGrid1.Canvas.Brush.Color:=ColorGrid1.ForeGroundColor
　　 else
　  　 DBGrid1.Canvas.Brush.Color:=ColorGrid1.BackGroundColor;
　　 DBGrid1.Canvas.FillRect(Rect);
　　 DBGrid1.Canvas.TextOut(Rect.left＋2,Rect.top＋2,Field.AsString);
　　end;

　　这个过程的作用是当SpinEdit1给定的条件得以满足时，如′salary′变量低于或等于SpinEdit1.Value时，DBGrid1记录以ColorGrid1的前景颜色来显示，否则以ColorGrid1的背景颜色来显示。然后调用DBGrid的Canvas的填充过程FillRect和文本输出过程重新绘制DBGrid的画面。

　　3.为SpinEdit1构件的OnChange事件编写响应代码：

　　procedure TForm1.SpinEdit1Change(Sender: TObject);
　　begin
 　　 DBGrid1.refresh;  //刷新是必须的，一定要刷新哦
　　end;

　　当SpinEdit1构件的值有所改变时，重新刷新DBGrid1。

　　4.为ColorGrid1的OnChange事件编写响应代码：

　　procedure TForm1.ColorGrid1Change(Sender: TObject);
　　begin
 　　 DBGrid1.refresh;    //刷新是必须的，一定要刷新哦
　  end;

　　当ColorGrid1的值有所改变时，即鼠标的右键或左键单击ColorGrid1重新刷新DBGrid1。

　　5.为Form1窗体（主窗体）的OnCreate事件编写响应代码：

　　procedure TForm1.FormCreate(Sender: TObject);
　　begin
 　　 ColorGrid1.ForeGroundIndex:=9;
　 　 ColorGrid1.BackGroundIndex:=15;
  　end;

　　在主窗创建时，将ColorGrid1的初值设定前景为灰色，背景为白色，也即DBGrid的字体颜色为灰色，背景颜色为白色。

　　6.现在，可以对ColorDBGrid程序进行编译和运行了。当用鼠标的左键或右键单击ColorGrid1时，DBGrid的字体和背景颜色将随之变化。

　　在本文中，只是简单展示了以彩色方式显示DBGrid的原理，当然，还可以增加程序的复杂性，使其实用化。同样道理，也可以将这个方法扩展到其他拥有Canvas属性的构件中，让应用程序的用户界面更加友好。
 
    
 
判断Grid是否有滚动条？ 
这是一个小技巧，如果为了风格的统一的话，还是不要用了。：）

。。。

  if (GetWindowlong(Stringgrid1.Handle, GWL_STYLE) and WS_VSCROLL) <> 0 then
    ShowMessage(/'Vertical scrollbar is visible!/');
  if (GetWindowlong(Stringgrid1.Handle, GWL_STYLE) and WS_HSCROLL) <> 0 then
    ShowMessage(/'Horizontal scrollbar is visible!/');

 
 两个Grid的同步滚动 
   在实际制作一个项目当中，有时候需要几个grid一起同步滚动以减少用户的操作量。希望下面那段代码对您有一定的参考价值。

{1.}

unit SyncStringGrid;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,Dialogs, Grids;

type
  TSyncKind = (skBoth, skVScroll, skHScroll);
  TSyncStringGrid = class(TStringGrid)

private
  FInSync: Boolean;
  FsyncGrid: TSyncStringGrid;
  FSyncKind: TSyncKind;
{ Private declarations }
  procedure WMVScroll(var Msg: TMessage); message WM_VSCROLL;
  procedure WMHScroll(var Msg: TMessage); message WM_HSCROLL;

protected
{ Protected declarations }

public
{ Public declarations }
  procedure DoSync(Msg, wParam: Integer; lParam: Longint); virtual;

published
{ Published declarations }
  property SyncGrid: TSyncStringGrid read FSyncGrid write FSyncGrid;
  property SyncKind: TSyncKind read FSyncKind write FSyncKind default skBoth;
end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents(/'Samples/', [TSyncStringGrid]);
end;

procedure TSyncStringGrid.WMVScroll(var Msg: TMessage);
begin
  if not FInSync and Assigned(FSyncGrid) and (FSyncKind in [skBoth, skVScroll]) then
    FSyncGrid.DoSync(WM_VSCROLL, Msg.wParam, Msg.lParam);
  inherited;
end;

procedure TSyncStringGrid.WMHScroll(var Msg: TMessage);
begin
  if not FInSync and Assigned(FSyncGrid) and (FSyncKind in [skBoth, skHScroll]) then
    FSyncGrid.DoSync(WM_HSCROLL, Msg.wParam, Msg.lParam);
  inherited;
end;

procedure TSyncStringGrid.DoSync(Msg, wParam: Integer; lParam: Longint);
begin
  FInSync := True;
  Perform(Msg, wParam, lParam);
  FinSync := False;
end;

end.

{****************************************}

{2.}
private
  OldGridProc1, OldGridProc2: TWndMethod;
  procedure Grid1WindowProc(var Message: TMessage);
  procedure Grid2WindowProc(var Message: TMessage);

public
{...}

procedure TForm1.Grid1WindowProc(var Message: TMessage);

begin
  OldGridProc1(Message);
  if ((Message.Msg = WM_VSCROLL) or (Message.Msg = WM_HSCROLL) or Message.msg = WM_Mousewheel)) then
  begin
    OldGridProc2(Message);
  end;
end;

procedure TForm1.Grid2WindowProc(var Message: TMessage);
begin
  OldGridProc2(Message);
  if ((Message.Msg = WM_VSCROLL) or (Message.Msg = WM_HSCROLL) or (Message.msg = WM_Mousewheel)) then
  begin
    OldGridProc1(Message);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  OldGridProc1 := StringGrid1.WindowProc;
  OldGridProc2 := StringGrid2.WindowProc;
  StringGrid1.WindowProc := Grid1WindowProc;
  StringGrid2.WindowProc := Grid2WindowProc;
end;
     

引用 回复 举报 Ç

(作者： songwt 2005-1-30 10:11:03)　 [资料] [短信] [好友] [邮箱]

第 7 楼

　

在Delphi中随意控制DBGrid 每一行的颜色简易方法 
   Delphi中使用 DBGrid 控件时，每一列都能按需要随意地改变颜色，但要改变每一行的颜色却很难，那么在不重新制作新控制件的情况下，有没有好的办法让DBGrid按照用户自己要求随意改变每一行颜色的？答案是有，下面介绍一种简单的方法。 

    要改变DBGrid每一行的颜色，只要在ONDrawColumnCell事件中设定要改变颜色的行的条件，
并指定DBGrid的Canvas.Brush.color属性并且把Canvas.pen.mode属性设成pmmask，再调用DBGrid 的DefaultDrawColumnCell方法即可。注意在改变这两个属性前要先保护好原来的 
Canvas.Brush.color 属性的值，调节器用完成 DefaultDrawColumnCell 方法后要把原属性值改
回，现以 Delphi//demos//db//clientmd 目录下的演示程序 clintproj.dpr 为例子,做简单说明，下面是对程序中的栅格 MemberGrid 的合条件的整行进行变色，变成黑体背景黄色的，其它不合条件的行的颜色为正常字体，白色背景，只在 DrawColumnCelL 事件中设条件其它的不变，如下： 

procedure TClientForm.MemberGridDrawColumnCell(Sender: TObject; const Rect: TRect; 
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var 
  oldcolor:tcolor;
  oldpm:tpenmode;
begin
  if DM.ProjectTEAM_LEADER.Value = DM.Emp_ProjEMP_NO.Value then  {设定变色的行的条件}
     MemberGrid.Canvas.Font.Style := [fsBold];
     MemberGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
     {上面是演示程序的原内容，以下是增加部分}
  if DM.ProjectTEAM_LEADER.Value =DM.Emp_ProjEMP_NO.Value then {设定变色的行的条件}
  begin
     oldpm:= MemberGrid.Canvas.pen.mode;
     oldcolor:= MemberGrid.Canvas.Brush.color;
     MemberGrid.Canvas.Brush.color:=clyellow;
     MemberGrid.Canvas.pen.mode:=pmmask;
     MemberGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
     MemberGrid.Canvas.Brush.color:=oldcolor;
     MemberGrid.Canvas.pen.mode:=oldpm;
  end;
 
end;
 <