Delphi DBGridEH中，選中行、列、單元格

// 新增行后，默認首列

procedure TForm1.ADOQuery1AfterInsert(DataSet: TDataSet);
begin
  with DBGridEh1 do
  begin
    SelectedIndex := 0;
  end;
end;

 

// 行選中

DBGridEh_Yingfu_SearchQK.SelectedRows.SetCurrentRowSelected(True);

 

//選中單元格

DBGridEh1.SelectedField := ADOQuery1.FieldByName('收銀簡稱');

 

//

  with DbgridEh_Xiaoshth_mx.SelectedField do
    if DATASET.Active then
      else if (FieldName = 'peij_dj') then //焦點停留在單價上
      begin
        Action_Searchprice.Execute;
      end

// 下拉框

    with DbgridEh_Xiaoshth_mx, DataSource.DataSet do
    begin
      SelectedField := FieldByName('cangk_dm');
      with dm_main.Query_Cangk do
      begin
        if active then close;
        open;
        first;
        Columns[SelectedIndex].KeyList.Clear;
        Columns[SelectedIndex].picklist.Clear;
        while not eof do
        begin
          Columns[SelectedIndex].KeyList.Add(fieldbyname('cangk_dm').AsString);
          Columns[SelectedIndex].PickList.Add(fieldbyname('cangk_mc').AsString);
          next;
        end;
      end;
      columns[SelectedIndex].autodropdown := true;
    end;

    with DbgridEh_Xiaoshth_mx, DataSource.DataSet do
    begin
      SelectedField := FieldByName('peij_dw');
      Columns[SelectedIndex].PickList := ReturnItemString(ITDanw_lc);
      columns[SelectedIndex].autodropdown := true;
      SelectedField := FieldByName('peij_jk');
      with Columns[SelectedIndex].PickList do
      begin
        Clear;
        Add('國產');
        ADd('進口');
        add('');
      end;
      Columns[SelectedIndex].AutoDropDown := true;
    end;
---------------------
作者：蒼穹帝
來源：CSDN
原文：https://blog.csdn.net/gjtao1130/article/details/42120319?utm_source=copy
版權聲明：本文為博主原創文章，轉載請附上博文鏈接！