DBGrid响应选择事件

procedure TForm1.Set_KH_DBGrid_MouseUP;  //  演示
begin
  DBedt_khmc.Text:=DBGrid_khList.DataSource.DataSet.FieldValues['Client_Name'];
end;

procedure TForm1.DBGrid_khListMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Set_KH_DBGrid_MouseUP;
end;

procedure TForm1.DBGrid_khListKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Set_KH_DBGrid_MouseUP;
end;