Insertar Boton en StringGrid,

[subzero]

Efectivamente tu ejemplo funciona a la perfeccion pero sigue sin funcionarme el click de los botones incrustados en la grilla. A tu ejemplo agregue

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
var i : integer;
begin
  for i := 1 to 9 do
  begin
    t           := TButton.Create(nil);
    t.Caption   := 'Quitar';
    t.Width     := 87;
    t.Name      := 'BT'+IntToStr(i);
    t.Parent    := StringGrid1;
    t.BoundsRect:= StringGrid1.CellRect(4, i);
    t.OnClick:= button2click;
    StringGrid1.RowCount := StringGrid1.RowCount + 1;
  end;
end;

Alguna otra idea?

[ecfisa]

Hola subzero.

Probá de este modo:

Código Delphi [-]
...
type
  TForm1 = class(TForm)
  ...
  procedure TForm1.FormShow(Sender: TObject);
  private
    procedure EventoClick(Sender: TObject);
    procedure CrearBotones(ACol: Integer);
    procedure BorrarColumna(ACol: Integer);
  public
  end;
...

implementation


procedure TForm1.EventoClick(Sender: TObject);
begin
  ShowMessage('Click en botón de StringGrid');
end;

(* Crear botones *)
procedure TForm1.CrearBotones(ACol: Integer);
var
  i: Integer;
  Btn: TButton;
begin
  for i := StringGrid1.FixedRows to StringGrid1.RowCount -1 do
  begin
    Btn           := TButton.Create(nil);
    Btn.Caption   := 'Quitar';
    Btn.Width     := 87;
    Btn.Name      := 'Button' + IntToStr(i);
    Btn.BoundsRect:= StringGrid1.CellRect(ACol, i);
    Btn.ControlStyle := [csClickEvents];
    Btn.OnClick   := EventoClick;
    Btn.Parent    := StringGrid1;
    StringGrid1.Objects[ACol,i] := Btn;
  end;
end;

(* Borrar columna *)
type
  TStringGridExt = class(Grids.TStringGrid);

procedure TForm1.BorrarColumna(ACol: Integer);
begin
  TStringGridExt(StringGrid1).DeleteColumn(ACol);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  ...
  CrearBotones(StringGrid1.RowCount-1);
end;

...
(* Liberar botones *)
procedure TForm1.FormDestroy(Sender: TObject);
var
  i: Integer;
begin
 for i := StringGrid1.FixedRows to StringGrid1.RowCount-1 do
    StringGrid1.Objects[StringGrid1.RowCount-1, i].Free;
end;

Llamada de ejemplo:

Código Delphi [-]
procedure TForm1.btBorrarClick(Sender: TObject);
begin
  BorrarColumna(1);
end;

Un saludo.

[rounin]

Hola!

En principio hay la otra manera de hacer eso.
No usar las componentes, pero dibujar los
botones en células y procesar los eventos del raton y teclado.

Antiguamente he creado una pequeña librería de esto tipo basado en "FlyWeight" objetos.
(Solo uno objeto existe para todos los celulas del mismo tipo).

El adjunto contiene un ejemplo.

[Casimiro Notevi]

Crea un tema nuevo con tu duda, esto no ayuda a solucionar la duda de quien creó este hilo.
No olvides nuestra guía de estilo, gracias
Tampoco hace falta que pongas esas letras tan grandes, podemos leer las pequeñas también

Empezado por genyus00

Se que a pasado tiempo... pero como se hace en este ejemplo para posicionarnos por código en un fila que queramos, no por clic en la fila.

[genyus00]

Empezado por Casimiro Notevi

Crea un tema nuevo con tu duda, esto no ayuda a solucionar la duda de quien creó este hilo.
No olvides nuestra guía de estilo, gracias
Tampoco hace falta que pongas esas letras tan grandes, podemos leer las pequeñas también

Para la persona que tiene la duda de como meter un botón en la stringrid, el ejemplo del .zip le va perfecto..
solo que tiene un error.

[Casimiro Notevi]

Hola genyus00, es que el título de este hilo, la duda que tenía el usuario que lo creó, es "Insertar botón en stringgrid".
Debemos centrarnos en lo que ha pedido quien ha hecho la pregunta, y no contestarle algo que él no ha preguntado.
Si tú tienes una duda, debes crear un tema nuevo para que todos lo vean y puedan ayudarte.
No olvides nuestra guía de estilo, gracias

Empezado por genyus00

Para la persona que tiene la duda de como meter un botón en la stringrid, el ejemplo del .zip le va perfecto..
solo que tiene un error.