DBGrid y Botones

[bitbow]

Te podria servir el ultimgrid del proyecto JEDI, aunque esto te haria depender de componentes externos a delphi, el ultimgrid tiene opciones para añadir componentes a columnas y personalizarlos.

http://jvcl.delphi-jedi.org/

Saludos.

[xangiesaurx]

bitbow, gracias por tu sugerencia, lamentablemente no puedo depender de componentes externos a delphi.
Ahora la duda que me surge es el crear los botones que apareceran en el Grid de manera dinámica, intente este código prueba, pero no me muestra el boton en el frame, alguien sabe el motivo?
Una vez solucionado esto, podré incorporarlo a mi DBGrid

unit Boton;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.StdCtrls,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TForm1 = class(TForm)
 procedure FormCreate(Sender: TObject);
 procedure OnButton1Click(Sender: TObject);
 procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

  private
    { Private declarations }

  public
    { Public declarations }

  end;

var
  Form1: TForm1;
  Button1: TButton;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Create(self);
  Button1.Parent:= Form1;
  Button1.Left:=5;
  Button1.Top:=200;
  Button1.OnClick:= OnButton1Click;
  Button1.Caption:= 'Hola';
  Button1.TabOrder:=1;
  Button1.Visible:= True;
end;

procedure TForm1.OnButton1Click(Sender: TObject);
begin
  ShowMessage('Presionaste');
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if Assigned (Button1) then Button1.Free

end;

end.

[olbeup]

Hola xangiesaurx,

No estas creando el botón correctamente, sustituye el:

Código Delphi [-]
Button1.Create(Self)

por

Código Delphi [-]
Button1 := TButton.Create(Self);

Un saludo.

[[Lepe]]

El button1.Parent, tendrás que asignarle "el frame" que quieras, el Grid, o donde quieres que salga.

Dado que lo has creado con el parámetro "Self" en TButton.Create(Self), no hace falta que lo liberes en el destroy, eso lo hará su dueño, el Self, que es el Form donde se ha creado.

Lo que intuyo es que al hacer un scroll del Grid, los botones se van a quedar fijos y no creo sea lo que quieras.

En ese Delphi no puedo ayudarte, ya que no lo tengo. Otra cosa es pintar el botón en el recuadro de una columna, así "hace parecer que es un botón", pero solo es pintura. Ojalá esto te sirva: www.clubdelphi.com/foros/showthread.php?t=74688

Saludos

[xangiesaurx]

olbeup, muchas gracias, en cuanto hice ese cambio apareció mi botón, muchísimas gracias

Ahora estoy en la parte mas difícil (para mí), no se como indicar una celda especifica del DBGrid, es decir, indicar que en la celda o columna tal aparezca ese botón que se crea dinamicamente.
Intentare seguir lo que comentó Lepe para ver si me sale, ero igual me gustaría saber si alguien sabe como hacer para que ese botón quede dentro de una celda especifica.

Gracias