还没输入完成,我想实时获取 Cell中的内容,以便作其他处理,
用什么事件呢?
这个问题简单啊,每输入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;