Unit

[MIUDINHO.TRT 0]

Estou criando uma unit, onde irá crias componente em tempo de execução, mas estou com problema para utilizar os eventos.

Sou iniciante.

A codigo:

unit unitTeste002;

 

interface

 

uses

Messages, SysUtils, Forms,

Dialogs, StdCtrls;

 

procedure Button2Click(Sender: TObject);

procedure Mensagem;

procedure criaButton2(nomeForm : Tform);

 

implementation

 

uses unPrincipal;

 

 

procedure criaButton2(nomeForm : Tform);

var

btnTeste : TButton;

begin

//ShowMessage('teste');

btnTeste := TButton.create(application);

btnTeste.Parent := nomeForm;

btnTeste.Name := 'btnTeste2';

btnTeste.Caption := 'Botão Dinâmico Unit';

btnTeste.Width := 200;

btnTeste.Top := 300;

btnTeste.OnClick := Button2Click; <-- aqui acontece o erro

end;

 

procedure Button2Click(Sender: TObject);

begin

Mensagem;

end;

 

procedure Mensagem;

begin

ShowMessage('mensagem on click botão dinamico');

end;

 

end.

 

Se fizer semelhante no form principal, da certo.

Se alguém puder me ajudar agradeço.