DbGrid con un campo ajeno a la tabla

[EgyEgy]

Necesito desplegar una columna en un DBgrid, pero esta no tiene asignado un campo de la tabla relacionada. Ademas dicha columna debe permitirme seleccionar uno de dos valores.

Ya utilice la propiedad PickList, pero no me despliega la lista cuando lo ejecuto, y tambien el valor de ButtonStyle es cbsAuto, sin tener el resultado que quiero.

¿alguien sabrá si puedo realizar esto con un dbgrid o algun otro componente?

[ecfisa]

Hola EgyEgy.

Para hacerlo con los componentes de Delphi, podes valerte de un TComboBox. Agregá un ComboBox y asigna sus items en diseño o como en el ejemplo por código.

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Clear;
  ComboBox1.Items.Add('Opción uno');
  ComboBox1.Items.Add('Opción dos');
  //ComboBox1.Items.Add('Opcion tres');
  // ...
  ComboBox1.Color:= DBGrid1.Color;
  ComboBox1.Visible:= False;
end;

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (gdFocused in State)and(Column.FieldName = 'TuCampo') then
  begin
    ComboBox1.ItemIndex:= -1; // 0:muestra 1er item, 1: el 2do...
    ComboBox1.Left:= Rect.Left + TDBGrid(Sender).Left + 2;
    ComboBox1.Top:= Rect.Top + TDBGrid(Sender).Top +2;
    ComboBox1.Width:= Rect.Right - Rect.Left;
    ComboBox1.Height:= Rect.Bottom - Rect.Top;
    ComboBox1.Visible:= True;
  end
  else
    ComboBox1.Visible:= False;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  with DBGrid1.DataSource.DataSet do
  begin
    Edit;
    FieldByName('TuCampo').AsString:= ComboBox1.Text;
    Post; // si queres que se almacene aún sin movilizarte en el DBGrid
  end;
end;
...

Saludos.