criacao de radiogroup dinamico, com envento onclick

Delphi

06/09/2006

bom dia
Estou criando radiogroup dinamico, gostaria de saber com consigo inserir comando no onclick

constructor TRadioList.Create(AOwner: TComponent;CaptionList: TStringList);
begin
with TRadioGroup.Create(AOwner) do begin
Parent := AOwner as TWinControl;
Left := 150;
Font.Style:=[];
Font.Size := 8;
Name := ´rg´+item;
tag := tag;
Height := 35;
Columns := 3;
Width := 417;
Items.Add(´´);
Items.Add(´´);
Items.Add(´´);
end;


Montei essa procedure para adicionar ao onclick mas nao sei como atribuir

procedure TFrm_Monitoramento.TOnClick(Sender: TObject);
begin
ShowMessage(´ok´);
end;



Obrigado


Airto

Airto

Curtidas 0

Respostas

Marcelo_mileris

Marcelo_mileris

06/09/2006

Tenta adicionar o evento....

constructor TRadioList.Create(AOwner: TComponent;CaptionList: TStringList);
begin
with TRadioGroup.Create(AOwner) do begin
Parent := AOwner as TWinControl;
Left := 150;
Font.Style:=[];
Font.Size := 8;
Name := ´rg´+item;
tag := tag;
Height := 35;
Columns := 3;
Width := 417;
Items.Add(´´);
Items.Add(´´);
Items.Add(´´);
[b:91ff6a5242]OnClick := TOnClick;[/b:91ff6a5242]
end;


GOSTEI 0
Airto

Airto

06/09/2006

não, ja tinha feito esse teste!
da erro na compilação

[Error] Unit.pas(111): Undeclared identifier: ´TOnClick´


GOSTEI 0
Airto

Airto

06/09/2006

estava criando o procedure na classe errada , precisa criar na classe do componente!!!!

procedure TRadioList.TOnClick(Sender: TObject);


GOSTEI 0
Aasn

Aasn

06/09/2006

Seus problemas acabaram... :D 

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.


[]´
AASN


GOSTEI 0
POSTAR