不要说DBGrid控件的方法,
cqzyf (cqzyf) 你提问的帖子已经结了,你是如何解决的。
cqzyf (cqzyf) 你提问的帖子已经结了,你是如何解决的。
解决方案 »
- 校验和的问题: hjy2 := inttohex(hjy,4);
- treeview中怎么取得鼠标点击的节点属性
- =======关于利用安装制作程序添加环境变量path的问题===========
- 请介绍一下有关线程方面的文章或资料学习学习。
- 鼠标hook问题?(很困惑)
- 关于控件webbrower的一点小问题
- 高分寻求图表控件及其源代码,分不够再加!!!!
- 请高手填一些代码好么? (基础的OOP问题)...
- adoquery刷新
- 在picture上放一个label,picture在下,label在上 ,移动picture,label也跟着移动
- 如何打开*.DB文件,我想看到表的结构!!!
- 很迷茫,不知错在何处,请指教!
---- 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;
我打不开搜索页了。你在搜索内容中添“dbgrideh”然后搜索大类,在打开页的中下部,就是了,题目和这个题目是一样的。
longenic(江寒)
我使用的DBGrideh,dbgrid确实可以实现好多功能,但是DBGridEh实现这些功能只是需要设置设置属性就可以了,为了提高效率,我还是喜欢使用DBGrideh。
谢谢你。
字段FieldKind 设为 fkLookup ,在加入一个你需要下拉的dataset2,
并设定dataset1中的需要下拉静态字段的lookupdateset为dataset2,
再设定静态字段的的lookupkey , loopupresultfield , keyfield等属性
为你需要的。不知你明白没有。