如何在Grid的某一个fields里面动态的添加控件?(100分)

  • 主题发起人 主题发起人 restart2
  • 开始时间 开始时间
R

restart2

Unregistered / Unconfirmed
GUEST, unregistred user!
我用了一个DBGridEh,想在某一个Fields列的网格内动态的添加控件,比如Button,
该如何做呢?
动态生成控件的时候,Parent属性的设置不能设定到列内啊
 
给你一段在DBGrid上放置CheckBox的代码,至于是DBGridEh,可能OnDrawDataCell无法触发
事件,具体你要试一下,我对DBGridEh一向感到很头痛,因为这个控件功能强大,就是没有
英文帮助看起来太吃力了。
放一个Checkbox。visible为false.
在DBGrid的OnDrawDataCell事件里判断当前Field是什么,根据需求在当前Cell的位置显示
checkbox或者什么的。checkbox的大小调整成cell的大小即可。
procedure TForm1.FormCreate(Sender: TObject);
begin
CheckBox1.Visible := False;
end;
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if (Field.FieldName = DBCheckBox1.DataField) then
begin
CheckBox1.Left := Rect.Left + DBGrid1.Left + 1;
CheckBox1.Top := Rect.Top + DBGrid1.top + 1;
CheckBox1.Width := Rect.Right - Rect.Left;
CheckBox1.Height := Rect.Bottom - Rect.Top;
CheckBox1.Visible := True;
end;
end;
在Dbgrid的OnColExit中判断Field来把CheckBox visible直回false
procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
If DBGrid1.SelectedField.FieldName = 'YourField' then
CheckBox1.Visible := false;
end;
这样就能达到点击某一字段列的Cell时,在此处出现一个Cell大小的checkbox覆盖住cell。
注意最好checkbox颜色设为背景色。
如果想显示combobox或者edit什么的都可以这样做
 
DBGridEh没用过,不过在DBGrid中只须这样就可以了:
DBGrid1.Columns[x]的ButtonStyle属性设为:cbsEllipsis
 
万户侯,那我怎么响应那个小按钮的点击事件?
 
OnEditButtonClick
 
对,DBGrid1的OnEditButtonClick事件。然后根据需要判断当前选定的字段或记录编程。
 
我知道了,我真是超级的呆了,现在
 
我发个例子给大家!!!!!
---- 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 下调试通过。希望本文能使你可以更加方便快捷的开发数据库应用程序。
 
后退
顶部