Cria��o de componente

Question

Ol� amigos

Estou criando um novo bot�o descendente do TButton. Mas quero fazer com que, ao darem duplo clique no bot�o, ao inv�z de chamar o evento OnClick do bot�o chame um evento que eu criei, por exemplo MeuOnClick. Algu�m sabe como o Delphi faz para saber qual evendo tem que chamar?

Grato,

Rodrigo Cesar

Stratofabius · Answer

Faz o seguinteDeclara o Metodo OnDblClick com o inherited dentro da procedureExemplo :[color=blue:f3f02aead5]procedure[/color:f3f02aead5] TMyButton.OnDblClick(Sender: TObject);[color=blue:f3f02aead5]Begin[/color:f3f02aead5]inherited OnDblClick(Sender);ExecutarMinhaProcedure;......[color=blue:f3f02aead5]End[/color:f3f02aead5];[color=blue:f3f02aead5]procedure[/color:f3f02aead5] TMyButton.ExecutarMinhaProcedure;[color=blue:f3f02aead5]Begin[/color:f3f02aead5]Showmessage(�Blablabla�);.....[color=blue:f3f02aead5]End[/color:f3f02aead5];N�o lembro direito mas deve ser mais ou menos isso!!!Abra�o...

Beppe · Answer

Oi!O m�todo que vc deve dar override � DblClick. OnDblClick � evento e n�o se pode dar override neles.Outra, vc s� chamar� �inherited ...;� se quiser tbm o comportamento antigo. Vc disse que quer substituir, ent�o deixa inherited de fora.[code:1:01605f7781]protected  procedure DblClick; override;...procedure TMyButton.DblClick;begin//end;[/code:1:01605f7781]...

Bruno Belchior · Answer

s� pra complementar o que o amigo beep discreveu, se vc [b:e25894e1c3]n�o[/b:e25894e1c3] quiser herdar o que j� foi implementado anteriormente em vez de dar um [b:e25894e1c3]override[/b:e25894e1c3] � melhor �reintroduzir� o m�todo ou seja usar a diretiva [b:e25894e1c3]reintroduce[/b:e25894e1c3]...

procedure herdada; reintroduce;

... mas cuidado, essa t�cnica tem um efeito colateral... se seu m�todo � usado em outra parte da classe ele n�o chamar� o m�todo herdado e sim o novo m�todo... ou seja se vc espera que ele se comporte em algum lugar do c�digo como o m�todo herdado n�o funcionar� a n�o ser que vc o chame explicitamente usando o [b:e25894e1c3]inherited[/b:e25894e1c3]...

Michael · Answer

[quote:83253f0e47=�rodc�]Mas quero fazer com que, ao [b:83253f0e47]darem duplo clique[/b:83253f0e47] no bot�o, ao inv�z de chamar o evento [b:83253f0e47]OnClick [/b:83253f0e47]do bot�o chame um evento que eu criei, por exemplo MeuOnClick. Algu�m sabe como o Delphi faz para saber qual evendo tem que chamar?[/quote:83253f0e47]Se vc se referiu ao comportamento do IDE do Delphi que gera o c�digo para o evento OnClick ao se dar um duplo clique sobre o bot�o, ent�o para mudar isso vc deve usar um editor de componente ou ent�o fazer com que seu evento seja o primeiro a ser listado no Object Inspector.[]�s...

Beppe · Answer

[quote:312ded849f=�brunovicenteb�]... mas cuidado, essa t�cnica tem um efeito colateral... se seu m�todo � usado em outra parte da classe ele n�o chamar� o m�todo herdado e sim o novo m�todo...[/quote:312ded849f]Outro detalhe causa bem mais dor de cabe�a, com reintroduce:[code:1:312ded849f]type  TClasseA = class  public    procedure MetodoA; virtual;  end;  TClasseB = class(TClasseA)  public    procedure MetodoA; reintroduce;  end;...TClasseA(ObjetoDaClasseB).MetodoA;...[/code:1:312ded849f]O m�todo chamado ser� sempre o da TClasseA. O reintroduce faz com que o Delphi crie um �entidade� para cada m�todo, que apenas acontece de terem o mesmo nome....

Rodc · Answer

[quote:53764afdef=�Michael�]Se vc se referiu ao comportamento do IDE do Delphi que gera o c�digo para o evento OnClick ao se dar um duplo clique sobre o bot�o, ent�o para mudar isso vc deve usar um editor de componente ou ent�o fazer com que seu evento seja o primeiro a ser listado no Object Inspector.[/quote:53764afdef]Ola Michael, vc entendeu perfeitamente o que quero fazer. Quero que no desenvolvimento a IDE do Delphi implemente automaticamente o meu evento quando o usu�rio dar duplo clique no componente. Mas ele chama sempre o evento OnClick.Eu j� tentei deixar o meu evento como o primeiro da lista, mas n�o adianta... � como o OnCreate que � chamado sempre que dou um duplo clique no form. O OnCreate n�o � o primeiro da lista de eventos... J� procurei nos c�digos do componente at� chegar na classe mais baixa e n�o encontrei algo que possa estar relacionado...Algu�m tem uma id�ia de como fazer isto?Grato,Rodrigo Cesar...

Cabelo · Answer

Como voc� herdou os eventos do TButton, voc� pode alterar o evento OnClick, hamando a procedure do Duplo clique.....

F�rum Cria��o de componente #286639