ButtonGroup Onclic en Ejecucion

[subzero]

Hola.

Quisiera saber si es posible al momento de adicionar nuevos botones al componente ButtonGroup asignarle el proceso que debe realizar cuando le den clic, todo esto en tiempo de ejecución, hasta ahora creo el botón pero no se como agregarle el evento onclic.

Código Delphi [-]
BtnGroup.Items.Add.Caption := Form2.Caption;
BtnGroup.Items[BtnGroup.Items.Count-1].OnClick(); //Aqui es donde quisiera que abriera o activara una ventana

Agradezco el tiempo....

[BrunoBsso]

Hola subzero.
Lo que vos necesitás es asignarle un evento al botón.
Te doy un pequeño ejemplo para que entiendas.

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure FormActivate(Sender: TObject);
    {Importantísimo agregarlo como un evento perteneciente al formulario}
    procedure ClickDelBoton(Sender:TObject);
    {Si lo hacés como un procedimiento normal, da error por el tipo}
    {Un evento es TNotifyEvent y un procedimiento no es más que un procedure}
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ClickDelBoton(Sender:TObject);
begin
  ShowMessage('El botón que me llamó dice '+TButton(Sender).Caption+' en su Caption.');
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  Button1.OnClick:=ClickDelBoton;
  Button2.OnClick:=ClickDelBoton;
  Button3.OnClick:=ClickDelBoton;
end;

end.

Saludos!

[subzero]

BrunoBsso, te agradezco tu aporte estuve analizando el ejemplo que me enviaste pero el comportamiento del componente ButtonGroup es diferente pués como te puedes dar cuenta es un contenedor de botones en el cual se crean como si fuese in listbox, y yo los estoy creando en tiempo de ejecución. Este comoponente no posee la caracteristica para colocarle el nombre al botón los adiciona como un item. Voy a seguir revisando y cualquier otra idea que se te ocurra seria de mucha ayuda.

[roman]

Con la respuesta de BrunoBsso tienes el 98% resuelto. Ya sólo fíjate que cada ítem del ButtonGroup también tiene su evento OnClick.

// Saludos

[BrunoBsso]

Es que para utilizarlo con un ButtonGroup tenés que hacer un casting con los items del grupo.
GrupoBotones.Items[X].OnCLick:=ClickDelBoton;
Es exactamente lo mismo porque cada item del grupo es de tipo TButton.
Saludos.

[subzero]

no fucniona pués lo que recibe el sender no es un TButton sino un TGroupButton.... en el mensaje no me muestra el caption del componente.