Criar Evento De Bot�o Em Form Din�mico, Tem como?

Question

Fala pessoal,Estou criando uma fun��o que cria um form e dois bot�es, como se fosse um MessageBox ou um DialogBox, mas eu n�o to conseguindo criar as procedures para ligar ao onclick dos bot�es desse ...

Brunodsr · Answer

Ta dando pau pq a tua funcao tem que possuir visibilidade pelo menos a nivel de unit.

Declara ela no private do teu form e testa novamente.

private
{ Private declarations }
procedure OKClick(Sender: TObject);

btnOK.OnClick := OKClick; //OKClick; // <<<=== AQUI DA ERRO, PORQUE???

Espero ter ajudado

Seu_madruga · Answer

[quote:628a0bf5f9=�brunodsr�]Ta dando pau pq a tua funcao tem que possuir visibilidade pelo menos a nivel de unit.Declara ela no private do teu form e testa novamente.  private    { Private declarations }        procedure OKClick(Sender: TObject);   btnOK.OnClick := OKClick; //OKClick;  // <<<=== AQUI DA ERRO, PORQUE???Espero ter ajudado[/quote:628a0bf5f9]Hum, entendi mas eu queria poder programar a procedure do evento do meu bot�o pra poder deixar o c�digo protegido dentro da jun��o entende. Da forma que vc me passou funciona perfeito, mas queria mesmo uma forma de criar a procedures dentro da fun��o. Ser� que realmente o que eu estou tentando fazer n�o tem como???Abra�o...

Brunodsr · Answer

Nao cara... infelizmente nao. SubProcedures sao privadas �s procedures owner. Do jeito atual, tuas procedures saem de memoria assim que o fluxo da principal sai de memoria. Ex.:

Procedure teste;
  procedure subProc;
  begin
    showmessahe(�teste�);
  end;
begin
  subProc; 
end;//subproc retirado de memoria aqui...

No exemplo acima, a procedure subProc � retirada da pilha assim que a procedure teste � executada.

Outra forma de fazer do jeito que vc quer � usar classes e tornar as procedures privadas na classe, mas fico mto baguncado.. rola nao.

Eu aconselho voce a usar bibliotecas de procedures e aponte p/ elas qndo necessario.

Cria todas as suas procedures em uma unit so. E aponta sempre pra ela.

Espero ter ajudado.

Seu_madruga · Answer

Ent�o as programa��es dos bot�es nos MessageBox, o Delphi tb�m tem essas procedures fora das fun��es? Achei q tinha uma forma de colcoar as procedures dentro. Mas como � que funciona ent�o se eu declaro uma procedure dentro da fun��o e consigo usar ela dentro sem problemas?

Comodelphi · Answer

boa tarde seu madruga, a questao de visibilidade nem entraria no seu caso neste momento, provavelmente o erro que vc esta tendo � ao complilar seu projeto: �Imcompatible Types: method pointer and regular procedure�. O que o ocorre � que vc n�o pode usar um m�todo comum para delegar para o evento do bot�o, que � um tipo �procedure of object�. quer dizer que o m�todo que vc vai passar para o evento deve estar defininido em uma classe, no caso do OnClick do TButton � um m�todo do tipo TNotifyEvent = procedure(Sender: TObject) of object; Ent�o vc poderia criar uma calsse bem simples somente para conter seu m�todo customizado e aplicar da forma que deseja:

TClassex = class
  private
    procedure CustomClick(Sender: TObject);
end;

A quest�o de escopo ocorrer� a partir do momento que vc decidir criar e usar os metodos da classe TClassex;

Seu_madruga · Answer

comodelphi

eu entendi sua explica��o em partes hehehe.
Se em um bot�o qualquer eu consigo colocar no onClick qualquer procedures que tenha sido criada na unit, porque n�o posso ligar a uma que est� dentro da procedure. qual a diferen�a entre a minha procedure criada dentro de outra procedure ou de uma procedure criada publica ou privada do form?

Vc disse q a procedure tem q ser do tipo TNofifiedEvent certo? Nao conseguiria criar essa procedure interna com esse tipo?

Talvez fazendo um cast?

Valew pela ajuda

Brunodsr · Answer

Bicho.. na boa? Faz o simples.

Como falei antes, procedures declaradas dentro de procedures sao restritas a estas procedures. Vc nao pode apontar um evento de um componente a uma procedure declarada assim.

Faca como te falei.. crie uma unit para guardar todos esses eventos e use essa unit em forma de biblioteca. � a forma mais facil.

Usa o exemplo que eu coloquei la em cima no post anterior.

Obs.: Se ligue no que o nosso amigo falou:

type TNotifyEvent = procedure (Sender: TObject) of object;

Portanto, crie uma classe para guardar essas procedures.

Comodelphi · Answer

vou tentar explicar de forma mais simples, uma procedure criada comum um bloco de c�digo comum pascal, n�o � uma vari�vel�tipada� portanto n�o pode ser atribuido a um evento de uma classe. Vc pode at� usar a procedure n�o �tipada�, como CallBack Procedure no OnClick do bot�o, mas acredito ser uma solu��o mais dificil de implementar em rela��o a escrever uma classe simples.