Insertar Boton en StringGrid,

[seb@]

Hola a todos!!!
Quiero agregar un boton en una celda determinada del stringgrid (el objetivo es abrir otra ventana en donde edito un memo) y no estoy pudiendo encontrar una buena solucion, si me pueden ayudar se los agradezco...

Gracias,

[axesys]

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
  var b:TButton;
begin
  b := TButton.Create(self);
  b.Parent := StringGrid1;
  b.BoundsRect := StringGrid1.CellRect(2,3);
  b.OnClick := Button1Click;
end;

[seb@]

mira no pude hacer andar el boton dentro del tstringgrid con el codigo que me enviaste, use el siguiente y anda bien, puede ser otra alternativa:
Este codigo lo utilice en el evento SelectCell del tstringgrid

Código Delphi [-]

var
  R: TRect;
begin
      // sgdWork_Sheet_Data es un tstringgrid
      R := sgdWork_Sheet_Data.CellRect(ACol, ARow);
      R.Left := R.Left + sgdWork_Sheet_Data.Left;
      R.Right := R.Right + sgdWork_Sheet_Data.Left;
      R.Top := R.Top + sgdWork_Sheet_Data.Top;
      R.Bottom := R.Bottom + sgdWork_Sheet_Data.Top;
      // btnMemo es un boton
      btnMemo.Width := 16;
      btnMemo.Left := R.Right - btnMemo.Width + 2;
      btnMemo.Top := R.Top + 2;
      btnMemo.Height := (R.Bottom) - R.Top;
 
      btnMemo.Visible := True;
      btnMemo.SetFocus;
end;

[jcarlos.matrix]

que sucede cuando lo agregaste el boton en el stringgrid
pero como le haces para cambiar el color del boton ya despues de
creado.

lo que hize yo fue volverloa a crear en la misma posicion pero con
otro color pero resulta que cada vez que lo hago de nuevo. la memoria usada por el programita aumenta y eso no kiero..
lo que kiero es que se libere cada vez que lo vuelvo a crear en la mismas posicion gracias.

[jcarlos.matrix]

ya pude solucionar el problema. solo tenia que hacer un destroy al boton creado y hacerle un nil despues.

ahora tengo otro problema resulta que creo varios botones pero cuando hago un resize al stringgrid se empalman los botones no hacen repaint. que hago.
gracias

[rojo raton]

Hola, recientemente he estado trabajando justamente en este asunto, lástima que el hilo de sea un poco antiguo pero igual no está de más responder esa última pregunta por las dudas alguien anda tambien haciendo lo mismo.....
Bueno, suponiendo que en tu formulario tenes un StringGrid y un BitBtn (ambos creados en tiempo de diseño) para que el boton se repinte en tu stringrid agregás esas dos lineas de código en el evento OnDrawCell de ese objeto y el boton toma la forma de la celda en el caso de que el usuario modifique el tamaño de la columna o fila del stringrid.

Código Delphi [-]
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
       bitbtn1.Parent := StringGrid1;
       bitbtn1.BoundsRect:= StringGrid1.CellRect(2,3);
end;

[subzero]

Hola, rojo raton gracias por exponer la forma como lo solucionaste una pregunta mas como accedes al evento click. Gracias!