Criar Eventos em um Componente

Question

Caros Colegas..Estou criando um componente para Autentica��o de senha e n�veis de acesso, mas estou com um problema, preciso criar um evento, sabendo que este componente descende da classe TComponent....

Nextone_br · Answer

Ficaria algo mais ou menos assim... ajusta para as tuas necessidades...

interface

TTeuComponente = class(TComponent)
...
private
FOnBeforeAutentica: TNotifyEvent
...
published
property BeforeAutentica: TNotifyEvent read GetBeforeAutentica write SetBeforeAutentica;

implementation

...
...

procedure Autentica
begin
...

if Assigned(FOnBeforeAutentica) then
FOnBeforeAutentica(Self{ou um sender do m�todo autentica});

//Teu m�todo de autentica��o
...
end;

[]s;

Cabelo · Answer

Colega..Obrigado pela explica��o..Mas ainda estou tendo alguns problemas, sei que GetBeforePrint e SetBeforePrint s�o procedures, mas como irei declar�-las, j� que n�o possuo nenhuma condi��o ainda para este evento??Eu compilei e deu o seguinte erro :�field or method identifier expected�.O qu� seria isso..?agrade�o muito sua aten��o..Cabelo...

Paulo_amorim · Answer

Ol�Eu postei uma pergunta parecida nem faz mt tempo...O Help do Delphi traz bastante informa��o sobre como criar eventos em um componente...bem explicativo!Seria mais ou menos assim:inicialmente, deve-se ver quais os parametros que vc vai precisarUm OnClick precisa de um [i:a5f138e0dd]Sender: TObject[/i:a5f138e0dd], um OnKeyPress precisa tamb�m de [i:a5f138e0dd]Key: Char[/i:a5f138e0dd]Se seu evento precisa de par�metros diferentes, deve-se declarar na unit:[code:1:a5f138e0dd]type TMeuTipoDeEvento = procedure of object;[/code:1:a5f138e0dd]Em seguida, coloque uma propriedade na tua classe e a vari�vel correspondente[code:1:a5f138e0dd]FOnMeuEvento: TMeuTipoDeEvento;(...)property OnMeuEvento: TMeuTipoDeEvento read FOnMeuEvento write FOnMeuEvento;[/code:1:a5f138e0dd]Agora ele existe, mas ainda precisa-se saber quando ele deve ser executadoIsso vc define no m�todo (no seu caso, �Autentica�)Antes de executar seu c�digo de autentica��o, coloque esse teste:[code:1:a5f138e0dd]procedure MinhaClasse.MeuMetodo;begin if Assigned( FOnMeuEvento) then FOnAutentica( ); //codigo normalend;[/code:1:a5f138e0dd]Repare bem: nunca se deve colocar [i:a5f138e0dd]else[/i:a5f138e0dd] quando testar eventoSe nao tiver nada no FOnMeuEvento, iso n�o deve alterar em nada o procedimento.Espero que ajudeAt�+...

Cabelo · Answer

Muito obrigado PauloFoi de muita ajuda..funcionou perfeitamente..sem maisCabelo...

Nextone_br · Answer

Bom que funcionou... apenas para deixar o esclarecimento. Os m�todos Get e Set utilizados nas propriedades (p�blicas) que acessam os atributos (privados) de uma classe (conforme comentei no meu post) fica a teu crit�rio colocar (e seria tamb�m private). Conforme o nosso outro colega Paulo, pode-se acessar diretamente o atributo... caso queira que o Delphi j� declare os m�todos pra ti, basta criar a propriedade e pressionar as teclas CTRL+SHIFT+C. Depois � s� implementar o �corpo� dos m�todos.

[]s;

R0n4ld0 · Answer

Parcero pq vc nao dispoe o seu componente pra galera usar esse metodo ai deve ser bastante utilt+...

F�rum Criar Eventos em um Componente #240096