如何实现如下功能：双击dbgrid中一条记录，将内容显示到编辑区

Question

编辑区是一些诸如edit，combobox，checkbox控件

Answer 1

edit1.text:= table1.fields[0].asstring;  // 第0列edit1.text:= table1.fieldbyname('列1').asstring;  // 叫 [列1] 的列

Answer 2

procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
  edit1.text:= table1.fieldbyname('AAA').asstring;
  combobox1.text:= table1.fieldbyname('BBB').asstring;
  if table1.fieldbyname('CCC').asstring='true' then  checkbox1.checked:=true
  else if table1.fieldbyname('CCC').asstring='false' then  checkbox1.checked:=false;
end;

Answer 3

就是要直接读取数据集数据就行了,想效率高呀,用db控件吧,一行代码都不用你写,但是劝你还是老老实实的多些几行代码,不要用db控件

Answer 4

使用dbedit，dbcombobox直接关联，代码都不用写了。

Answer 5

可以写在ADOQuery1中的ADOQuery1AfterScroll中
procedure TForm1.ADOQuery1AfterScroll(Sender: TObject); 
begin 
  edit1.text:= ADOQuery1.fieldbyname('AAA').asstring; 
  combobox1.text:= ADOQuery1.fieldbyname('BBB').asstring; 
  if table1.fieldbyname('CCC').asstring='true' then  checkbox1.checked:=true 
  else if ADOQuery1.fieldbyname('CCC').asstring='false' then  checkbox1.checked:=false; 
end;

Answer 6

这样不用双击了，随着指针移动，而改变dbedit，dbcombobox选项