dbadvstringgrid中怎放一单选列

Question

dbadvstringgrid中怎放一单选列

Answer 1

procedure TForm.ADVSGGetEditorType(Sender: TObject; ACol,
  ARow: Integer; var AEditor: TEditorType);
begin
  try
    with Sg_ADVSG do
      case ACol of
        1 :
          begin
            AEditor := edComboEdit;
            ComboBox.Items.Clear;
            ComboBox.Items.Add('11');
            ComboBox.Items.Add('22');
          end;
  end;
end;