如何实时获取DBGrid 中当前单元格输入的内容？
标签：bsp div str change class 内容 ase procedure query
如何实时获取DBGrid 中当前单元格输入的内容？
TForm1.DBGrid1DblClick(Sender: TObject);
var
value: string;
begin
//value := DBGrid1.Fields[DBGrid1.selectedindex].Value;
value := DBGrid1.SelectedField.Value;
ShowMessage(value);
end;
procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ADODataSet1.State in [dsInsert,dsEdit] then
ADODataSet1.UpdateRecord;
end;