Tener un columna de ComboBox en un stringGrid

[[xEsk]]

Hola, con Delphi 2007 funciona bien. Los menus aparecen por encima del StringGrid.

Saludos.

[rgstuamigo]

Pero en Delphi 7 no me funciona bien ,se ve bien los ComboBox's pero cuando le doy click en uno de ellos ,los itenes no se ven.....¿Que podra ser?¿Y como soluciono esto? .

[rgstuamigo]

Al parecer nadie se ha topado con este problema...puede ser que no tenga solucion...
Entonces me gustaria ,si alguien conoce un buen componente que haga lo que estoy necesitando....les seria muy agradecido.......

[petete2008]

lo arreglastes?
yo tengo el mismo problema
los items del combobox me aparecen por detrás.

[[Lepe]]

No había visto este hilo. No pongas el padre del combo al stringgrid, intenta que el padre sea el Form y si acaso haces un combo.bringToFront para traerlo al frente.

Lo que intento decir es que simules que el combo esté dentro del grid cambiando su tamaño como bien haces, pero que en realidad pertenezca al Form.
Edito: codigo sucio pero funcional:

Código Delphi [-]
const Filas=5;
var
L :Array[1..Filas]of TComboBox;
i,j:Integer;
begin
stringgrid1.DefaultRowHeight := 21;
for i :=1  to Filas do
    begin
        L[i]:=TComboBox.Create(self);
        L[i].Parent:=self;
        l[i].Items.CommaText:= 'pepe,antonio,jose';
        //l[i].BringToFront;
        l[i].Left := stringgrid1.Left + stringgrid1.cellrect(1,i).Left+1;
        l[i].Top := stringgrid1.Top +stringgrid1.cellrect(1,i).top+1;
        l[i].Width:=  stringgrid1.cellrect(1,i).Right
                      - stringgrid1.cellrect(1,i).Left;

        // esto no funciona, ya que el combo mantiene su alto según
        // la fuente que tenga puesta, así que el alto de las celdas tendrás
        // que ajustarlo al alto de un combo,
//        l[i].Height :=stringgrid1.cellrect(1,i).Bottom
//                      - stringgrid1.cellrect(1,i).Top;
             for  j:=1  to 10 do  //esto para rellenar los itenes
                   L[i].Items.Add('Opcion:'+IntToStr(j));
    end;

end;

SAludos

[rgstuamigo]

Gracias Lepe...
Me quedó de esta forma:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const Filas=20;//Mi StringGrid es de 21 filas ,una es para el titulo
var
L :Array[1..Filas]of TComboBox;
i,j:Integer;
begin
StringGrid1.DefaultRowHeight:=19;//para que se vean bien pegadito los ComboBox al StringGrid.
for i :=1  to Filas do
    begin
        L[i]:=TComboBox.Create(self);
        L[i].Parent:=self;
        L[i].Width:=stringgrid1.DefaultColWidth;
        L[i].Height :=stringgrid1.DefaultRowHeight;
        L[i].Left := stringgrid1.Left + stringgrid1.cellrect(1,i).Left+1;
        L[i].Top := stringgrid1.Top +stringgrid1.cellrect(1,i).top+1;
             for  j:=1  to 10 do  //esto para rellenar los itenes
                   L[i].Items.Add('Opcion:'+IntToStr(j));
    end;

end;

Saludos...