dbgrid问题(2个)(100分)

  • 主题发起人 主题发起人 diamond~
  • 开始时间 开始时间
D

diamond~

Unregistered / Unconfirmed
GUEST, unregistred user!
1、使用光标键或鼠标在dbgrid1中移动,
memo中动态显示dbgrid1中的内容。

2、dbgrid如何得到焦点,比如点击按钮运行一个过程后,光标在dbgird的第一列的第一项上进入待输入状态。
如何用语句表示,dbgrid1.setfocus;不行
 
第1个问题:在dbgrid1.DataSource.dataset.AfterScroll事件中写代码
第2个问题:楼主的dbgrid1.setfocus 可行
 
第一个问题:
①定义一个计算字段,string类型,然后在oncalc...事件中将memo读出来写入该计算字段。
这个办法我试过,绝对可以。
②直接使用第三方控件如:elib、dxgrid等。

第二个问题:
设定row的值,不行么?试试看,我没试过。
 
1、
procedure TForm1.StringGrid1Click(Sender: TObject);
begin
memo1.Lines.Add(stringgrid1.Cells [stringgrid1.Row,stringgrid1.Col]);
end;
2、正在测试

不好意思,答错了。学习。
 
1.procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
if DBGrid1.SelectedField<>nil then
Memo1.Text:=DBGrid1.SelectedField.AsString;
end;

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
if DataSource1.State=dsBrowse then
DBGrid1ColEnter(Sender);
end;

2.DBGrid1.SetFocus 可以获得焦点呀!
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
744
DelphiTeacher的专栏
D
D
回复
0
查看
825
DelphiTeacher的专栏
D
D
回复
0
查看
718
DelphiTeacher的专栏
D
D
回复
0
查看
831
DelphiTeacher的专栏
D
后退
顶部