Fórum criacao de radiogroup dinamico, com envento onclick #328804

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;  { <-- incluir essas 2 clausulas }

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    grupo : TRadioGroup;
    procedure Clique(sender: TObject); { declara-se a procedure que irá executar o evento do clique }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
grupo := TRadioGroup.Create(self);
with grupo do
     begin
     Parent := self;
     Caption := ´teste´;
     Left := 50;
     Top := 50;
     Items.Add(´teste 1´);
     Items.Add(´teste 2´);
     Items.Add(´teste 3´);
     OnClick := Clique; { associa-se o clique a procedure criada }
     end;
end;

procedure TForm1.Clique(Sender: TObject);
begin
{ procedure a ser executada ao clicar no item do grupo }
showmessage(´Cliquei no ítem: ´ + Inttostr(grupo.ItemIndex));
end;

end.