Only 1 ComboBox in only 1 specified cell of StringGrid

[asdf]

I got this from internet.
.
.
.

How can we apply to have only 1 ComboBox in only StringGrid2.Cells[1,1] ?                                      

[cpalx]

change

if ACol in [1] then
...

by

if (ACol =1)and(Arow=1) then
...

[asdf]

Thank you so much.
And I found another example ...


1. Very nice but it still stood silent. What should I do more after putting StringGrid1 on Form1 ?
2. And how can we apply to have only 1 ComboBox in only StringGrid1.Cells[1,1] ?  

[cpalx]

Acol te dice la columna y Arow la fila ...

[Hydexon]

Best alternative with the OnSelectCellEditor. avoid write the first code are you posted. i see this code in the MyDBF Studio source code by Calogiuri Enzo Antonio.

P.S: You forget the code StringGrid1.EditorByStyle(cbsPickList) if you want show the Combobox properly in the grid!

[asdf]

Thank you, now I headed for using cbsPickList.

begin
  stringgrid1.Columns.Add;
  stringgrid1.Columns[0].ButtonStyle:=cbspicklist;
  stringgrid1.Options:=stringgrid1.Options+[goediting];
end;       

The same old question please, how can I specify only one cell in StringGrid1 ( for example: StringGrid1.Cells[1,3] ) to have the cbsPickList ?

[jesusr]

if you have specified column 0 (that would be column 1 if you have a fixed col) as cbsPickList but yet you want only editor on grid.cells[1,3] create an OnSelectEditor event handler for this grid, and specify that Editor will be nil for all rows except 3, for example:

Code: [Select]

  if (aCol=1) and (aRow<>3) then
    Editor := nil;


[asdf]

procedure TForm1.FormCreate(Sender: TObject);
begin
stringgrid1.Columns.Add;
stringgrid1.Columns.Add;
stringgrid1.Columns[0].ButtonStyle:=cbspicklist;
stringgrid1.Options:=stringgrid1.Options+[goediting];
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; aCol, aRow: Integer;
  var CanSelect: Boolean);
begin
  if (aCol=1) and (aRow<>3) then begin
    CanSelect := true;
  end;
end;

procedure TForm1.StringGrid1SelectEditor(Sender: TObject; aCol, aRow: Integer;
  var Editor: TWinControl);
begin
  if (aCol=1) and (aRow<>3) then Editor := nil;
end;                 

Column 0, could not be edited in row 1,2 and 4.
How can stringgrid1.Options:=stringgrid1.Options+[goediting]; work on such cells ?

But stringgrid1.Options:=stringgrid1.Options+[goediting]; worked on column 1.