Criar comp em tempo de execu��o com eventos onclick e outros

Question

Boa noite como que eu fa�o pra criar um componente com um evento eu sei criar um componente normal, mas com evento ainda n�o sei como fazer. Teria como voc�s me ajudarem, outra coisa que n�o consegui ...

Raserafim · Answer

para criar um componente dinamicamente vc deve basicamente, e principalmente: declarar uma vari�vel do tipo do objeto que vc quer criar; instanciar o objeto; e definir a propriedade Parent.

...
uses ......, StdCtrls; //declare a unit q tem o tipo de classe q vc vai usar.
...
var
  .....; Botao: TButton;
implementation
...
  Botao := TButton.Create(Self);
  Botao.Parent := Self;
  //defina as outras propriedades

desta forma vc cria um componente dinamicamente. para colocar um componente dentro do outro, basta na proipriedade Parent vc colocar o nome do componente que ser� o pai.

Levisants · Answer

Isso j� consegui fazer, valeuMas agora gostaria de saber como por enventos em um objeto criado em tempo de execu��o.Tipo assim eu crio um botao e nele eu crio uma rotina que ira executar um arquivo.Pra cada objeto ele ir� criar um evento e o mesmo ir� executar uma rotina....

Marco Salles · Answer

[quote:42d37bd575]Mas agora gostaria de saber como por enventos em um objeto criado em tempo de execu��o. [/quote:42d37bd575]A Id�ia esta na teoria de Ponteiro de m�todos... Voce deve atribuir um m�todo do formul�rio ao componente que voce esta criando em RumTime... O M�todo ser� executado , mesmo que voce o tenha definido dentro de outra classe (neste caso citado , foi o Formul�rio)[b:42d37bd575]Assim no Formul�rio definiremos o m�todo :[/b:42d37bd575][code:1:42d37bd575]type  TForm1 = class(TForm)    procedure ClickBotao(sender:Tobject);  private    { Private declarations }  public    { Public declarations }  end;implementation{$R *.DFM}[/code:1:42d37bd575][b:42d37bd575]implementaremos o m�todo[/b:42d37bd575][code:1:42d37bd575]procedure TForm1.ClickBotao(sender: Tobject);beginShowmessage(�evento on click�);end;[/code:1:42d37bd575]Veja , foi definido o m�todo no formul�rio e foi implementado o m�todo...Agora simplismente podemos atribuir ao m�todo OnClick De Um Bot�o Criado em RumTime a o m�todo Comp�tivel do Objeto FormVeja:[code:1:42d37bd575]Botao := TButton.Create(Self);   Botao.Parent := Self;   //defina as outras propriedades  Botao.OnClik:=Form1.ClickBotao; //atribui��o do m�todo[/code:1:42d37bd575]Esta tecnica pode ser extendida para muitos componentes e muitos outros eventos.....

F�rum Criar comp em tempo de execu��o com eventos onclick e outros #277500