📄 052501_05.htm

📁 对于学习很有帮助
💻 HTM
字号:
<html>

<head>
<link REL="stylesheet" HREF="/style.css" TYPE="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>计算机世界日报:
在Delphi的DBGrid中插入其他可视组件
</title>
<!--***********-->
</head>

<body bgcolor="#FFFFFF" >














<p><br>
<font color="#b904e8"><b><em><a href="class.htm">返回</a></em></b></font>
<center>
<font color="#0000c0"><h2>
在Delphi的DBGrid中插入其他可视组件
</h2></font>
<h3>
中国地质大学
<br>张兵兵
</h3>
</center>
<p><font color="#ffffff">----</font>

Delphi提供了功能强大的 DBGrid组件，以方便进行数据库应用程序设计。但是如果我们仅仅利用DBGrid组件，每一个获得焦点（Grid）只是一个简单的文本编辑框，不方便用户输入数据。Delphi也提供了一些其他数据组件来方便用户输入，比如DBComboBox，DBCheckBox等组件，但这些组件却没有DBGrid功能强大。Delphi能不能象Visual Foxpro那样让DBGrid中获得焦点网格可以是其它可视数据组件以方便用户呢？其实我们可以通过在DBGrid中插入其他可视组件来实现这一点。
<p><font color="#ffffff">----</font>
Delphi对DBGrid处理的内部机制，就是在网格上浮动一个组件——DBEdit组件。你输入数据的网格其实是浮动DBEdit组件，其他未获得焦点地方不过是图像罢了。所以，在DBGrid中插入其他可视组件就是在网格上浮动一个可视组件。因此任何组件，包括从简单的DbCheckBox到复杂的对话框，都可以在DBGrid中插入。下面就是一个如何在DBGrid中插入DBComboBox组件的步骤，采用同样的办法可以插入其他组件。
<p><font color="#ffffff">----</font>
1、 在Delphi 4.0中新建一个项目。
<p><font color="#ffffff">----</font>
2、 分别拖动的Data Access组件板上DataSource、Table，Data Controls组件板上DBGrid，DBComboBox四个组件到Form1上。
<p><font color="#ffffff">----</font>
3、 设置各个组件的属性如下：
<pre>
  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
      Items.Strings  '男'| '女'
</pre>
<p><font color="#ffffff">----</font>
  注意：我在这里用了Teacher.dbf，那是反映教职工的性别，只能是“男”或者是“女”。
<p><font color="#ffffff">----</font>
4、 DrawDataCell事件是绘制单元格，当获得焦点网格所对应的字段与组合框所对应的字段一致时，移动组合框到获得焦点的网格上，并且使组合框可视，从而达到在DBGrid指定列上显示DBComboBox的功能。设置DBGrid1的OnDrawDataCell事件如下：
<pre>
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;
</pre>
<p><font color="#ffffff">----</font>
5、 DBGrid指定单元格未获得焦点时不显示DBComboBox，设置DBGrid1的OnColExit事件如下：
<pre>
procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
  If DBGrid1.SelectedField.FieldName 
  = DBComboBox1.DataField then
  begin
      DBComboBox1.Visible := false;
  end;
end;
</pre>
<p><font color="#ffffff">----</font>
6、 当DBGrid指定列获得焦点时DrawDataCell事件只是绘制单元格，并显示DBComboBox，但是DBComboBox并没有获得焦点，数据的输入还是在单元格上进行。在DBGrid1的KeyPress事件中调用SendMessage这个 Windows API函数将数据输入传输到DBComboBox上，从而达到在DBComboBox上进行数据输入。因此还要设置KeyPress事件如下：
<pre>
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;
</pre>
<p><font color="#ffffff">----</font>
程序在中文Windows 98，Delphi 4.015 下调试通过。希望本文能使你可以更加方便快捷的开发数据库应用程序。



 



<p align="right"><small><em>中国计算机世界出版服务公司版权所有</em></small> 
<br>
</p>
</body>
</html>
💿 文件大小 2022 K
👤 上传用户 siclj
📂 所属分类 Delphi/CppBuilder
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -