criando componente dinamicamente

[etspaz 0]

paz e amor a todos!bom, eu peguei um exemplo no forum sobre como criar um componente de forma dinamica e realmente funciona.ex:procedure TForm1.Button1Click(Sender: TObject);var x: integer;begin with TButton.Create(Self) do begin Parent:=Self; Caption:='hehe'; Left:=400; Top:=100 ; Name:='BtnHehe'; end; for x:=1 to 10 do begin with TCheckBox.Create(Self) do begin Parent:=Self; Top:=10 + (x * 22); Left:=50; Caption:='Check Box' + IntToStr(x) + ':'; Name:='ckb_' + IntToStr(x); end; with TEdit.Create(Self) do begin Parent:=Self; Top:=10 + (x * 22); Left:=150; Caption:='Edit' + IntToStr(x); Name:='edt_' + IntToStr(x); end; end; Button1.Visible:=False; end;porém, gostaria de saber como eu faço pro componente ter funcionalidade, exemplo:eu criei um buton, porém como faço pra fazer com que um comando qualquer seja executado ao clicar neste botão.Desde já agradeço!

[Rodrigo Miss 1]

procedure TForm1.Clique1(Sender: TObject); begin   ShowMessage('Fui Clicado'); end;  var   b: TButton; begin   B:= TButton.Create(self);   b.Parent:= self;   b.OnClick:= Clique1;

Belê?!

[etspaz 0]

vlw, rodrigo http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

não to desenvolvendo nada que precise disto, mas é sempre bom aprender.

[Rodrigo Miss 1]

Ah sim! com certeza ...

Abraços... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif