Probema com Atribuição de Evento
Ola Pessoal !
Deixa eu tentar expor meu problema para que os colegas possam me ajudar.
Estou Criando um componente que possui uma propriedade TspeedButton. ow seja erei linkar meu componente com um speedButon, neste meu componente eu implentei uma rotina para atriuir um método para o evento Onclick do Speed Button, o problema é q fazendo isso se eu for no speedButton e implentar o evento OnClick direto nele não funciona, pois eu atribuo um método para ele atraves do componente que criei
Como posso adequar esse código para que seja disparado tanto o evento que esta dentro do evento do SpeedButton quanto o que esta no meu componente.
Obrigado a Tdos !
Deixa eu tentar expor meu problema para que os colegas possam me ajudar.
Estou Criando um componente que possui uma propriedade TspeedButton. ow seja erei linkar meu componente com um speedButon, neste meu componente eu implentei uma rotina para atriuir um método para o evento Onclick do Speed Button, o problema é q fazendo isso se eu for no speedButton e implentar o evento OnClick direto nele não funciona, pois eu atribuo um método para ele atraves do componente que criei
FOnclick : TNotifyEvent; FButton : TSpeedButton;
Procedure SetButton(Value : TSpeedButton);
begin
if (FButton <> value) then
begin
FButton := Value
if not (csDesigning in ComponentState) then
begin
FOnclick := TSpeedButton(FButton).OnCLick;
TSpeedButton(FButton).OnCLick := Metodo;
end;
end;
end;Como posso adequar esse código para que seja disparado tanto o evento que esta dentro do evento do SpeedButton quanto o que esta no meu componente.
Obrigado a Tdos !
Mdm
Curtidas 0