Question

delphi 如何实现grid组件在鼠标双击某一行后获得这一行的数据并将数据写到相应的edit中？

我需要一个方法，可以在鼠标双击某一条数据后，将这一条数据中的每一个字段内容显示在界面中指定的edit中，谁能提供一下这样的方法。。。。
grid控件可以通过field属性访问控件中的每一个字段，序号从0开始定义类型是：
field[index:integer]
实现方法是在DblClick（双击）事件中添加代码
name.Text:=cpxx.Fields[0].Value;
cptype.Text:=cpxx.Fields[1].Value;
size.Text:=cpxx.Fields[2].Value;
money.Text:=cpxx.Fields[3].Value;
from.Text:=cpxx.Fields[5].Value;
intime.Date:=cpxx.Fields[4].Value;
直接这样赋值就可以了

Answer 1

Edit1.Text:=Grid.datasource.dataset.FieldByName('字段名').asstring
写入 Grid 的 OnDBClick 事件中

Answer 2

使用grid事件的ondblclick事件

procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
self.Edit1.Text:=ADOQuery1['姓名'];
end;
首先ADOQuery1得是grid是查询出的数据就行了。

追问

晕，我说怎么代码就这么点。。。
大哥~我说的是某一条记录，是横向的，字段我知道查的

Answer 3

grid2.colcount:=grid1.rowcount;
grid2.rowcount:=grid1.colcount;
for irow:=0 to grid1.Rowcount-1 do
for icol:=0 to grid1.colcount-1 do
grid2.cells[irow,icol]:=grid1.cells[icol,irow];

大概是这样子的

追问

你这个代码好象是用于两个grid控件中的数据传递吧。。。？
我是要在一个grid组件中双击鼠标以后这一行数据的每一个传递到相应的edit组件的text里面去
主要不知道的是不知道用什么方法来实现传递每一个字段中的数据

Answer 4

你可以进行delphi的帮助学习