如何获取DBGrid 中当前单元格输入的内容?
还没输入完成,我想实时获取 Cell中的内容,以便作其他处理,
用什么事件呢?
所以Field的Onchange事件是没用的。
这个问题简单啊,每输入1个数据的后就提交(并不是提交到数据库,还是在编辑状态),那么用DataSet就可以取值了
用DBGrid的KeyUp事件:
procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ADOQuery1.State in [dsinsert,dsedit] then
ADOQuery1.UpdateRecord;
end;
这样可以直接用Edit1.text:=adoquery1.fieldbyname('XXOO').asstring取值了;
在那里取值或取那个字段值就随你了
DBGrid1.SelectedField.AsString
DBGrid1.SelectedField.Text
看你需要选择
procedure 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;