请教DBgrid事件问题！

Question

当离开dbgrid的某单元格（某整列离开单元格）是触发事件，请问代码如何写何，请各位高手了！

Answer 1

procedure TFrmPersonal.DBGridEh1ColExit(Sender: TObject);
begin
  if DBGridEh1.SelectedField.FieldName='type' then
  begin
    showmessage('type EXIT');
  end;
end;

Answer 2

在这个事件中写代码：DBGridEh1ColExit

Answer 3

通过与DBGrid连接的数据源的Query或Table字段的change事件也可以的。

Answer 4

這是我今天寫的，不知對你有沒有幫助，還差滾輪和右鍵會更完善。
procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
edit1.text:='';
Edit1.Text := DBGrid1.DataSource.DataSet.FieldByName('dept').AsString;  //移動光標，取得當前行，dept列的值
end;
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
edit1.text:='';
Edit1.Text := DBGrid1.DataSource.DataSet.FieldByName('dept').AsString;  //單擊鼠標左鍵，取得當前行，dept列的值
end;