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
Código:
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.