牛人過來指教!!!!!DBgrid中沒有OnRowEnter事件怎麼辦?????

Question

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  Edit3.Text:= dbgrid1.Columns[0].Field.asstring;
  Edit4.Text:= dbgrid1.Columns[1].Field.asstring;
end;

Answer 1

dbgrid的随行变化也就是随记录变化，所以只要获得列值就可以得到当前记录的对应字段值，也因此没有OnRowEnter事件

Answer 2

procedure Tfrmmain.DBGrid1CellClick(Column: TColumn);
begin    
    Edit3.Text:= DBGrid1.Fields[0].AsString;
    Edit4.Text:= DBGrid1.Fields[1].AsString;
end;