DBGrid y Botones

[Neftali [Germán.Estévez]]

Empezado por xangiesaurx

No se si esto este bien o hay alguna otra manera de realizarlo.

Si utilizas los componentes estandard, esta es la forma correcta.
Luego puedes utilizar el botón OnEditButtonClick para capturar el evento cuando el usuario pulsa el botón.

Hay otras opciones como las que te comenta Casimiro u otros componentes, pero con esta debería valer.

[xangiesaurx]

Ok gracias, lo revisaré, ya que logré hacer que funcionen los botones, pero me doy cuenta que los cbsEllipsis no son lo que necesito, ya que necesito replicar esto: botomes.JPG

Revisaré los otros enlaces que me comentan y postearé cualquier duda que salga o si le doy solución a esto, gracias

[Casimiro Noteví]

Puedes poner el icono que quieras.

[xangiesaurx]

No sabía que podia cambiar propiedades del cbsEllipsis, de ser así se puede dejar siempre visible?

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