Insertar Boton en StringGrid,

[rojo raton]

supongo que los botones insertados en la columna los ordenaste en una lista de objetos o similar (TobjectList). Ese objeto te permite saber el indice de un objeto de la lista con la función IndexOf(sender:Tobject) ; vos le mandas el boton como parametro y te devuleve su indice en la lista, y con ese indice ya tenés el numero de fila a borrar en el stringgrid.
Cuando el usuario presiona un boton en el stringgrid se dispara la siguiente función:
algo así:

Código Delphi [-]
var
  L:TobjectList;//en esta lista tendrías guardados y ordenados los botones de la columna.
procedure TForm.Button1Click(sender:TOBject);//evento del button1 creado en tiempo de diseño
var
 indice:word;
begin
    indice:= L.indexOF(sender);
    EliminarFila(indice,Stringgrid1);
end;

este evento se lo tendrás q asignar a cada botón q crees y agregues a la lista de objetos.

[subzero]

rojo raton, gracias por tus aportes mi problema no esta en borrar sino en cuando se presione el boton realice el proceso, logre que lo(s) mostrara pero lo que no he podio es con el click para que usando se envie a un procedimiento o simplemente me muestre una ventana algo como un ShowMessage.... algo com insertar el evento ya he realizado un procediiento y esto es lo utlimo que hice.

Código Delphi [-]
var cont : integer;
...
while(Not EOF)do
begin
   btn := TButton.Create(nil);
   btn.Caption:= 'Quitar';
   btn.Width:= 87;
   btn.Parent:= sgcodigos;
   btn.BoundsRect:= sgcodigos.CellRect(4, cont);
   btn.OnClick := elclick;
   cont := cont + 1;
end;
.....
.....
procedure Tfproductos.elclick(Sender: TObject);
begin
   ShowMessage('Presiono Click')
end;

[rojo raton]

sin embargo a mi si me funca. Mirá lo que hice:
Coloqué 2 botones comunes en un formulario vacío, cortito el programa.
Te tendría q funcionar. sino ya es otro problema.

Código Delphi [-]
var
  Form1: TForm1;
  t:tbutton;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
    t:= tbutton.Create(nil);
    t.Parent:= form1;
    t.Height:= 20;
    t.Width:= 60;
    t.Left:= 50;
    t.Top:= 50;
    t.Caption:= 'prueba';
    t.OnClick:= button2click;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   showmessage('eureca!');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  t.Free;
end;

end.

[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.