Dicas - Acessando eventos, métodos e propriedades não publicadas

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja neste dica, como acessar eventos, métodos e propriedades não publicadas, através da técnica de "hack".

Acessando eventos, métodos e propriedades não publicadas

 

Suponhamos que desejássemos adicionar um handle de evento OnClick a um TrackBar. O Trackbar não tem um handle de evento OnClick, portanto teremos que fazer algo para ter-lo. Poderíamos criar um componente derivado do TTrackBar, publicar o evento OnClick, salvá-lo, instalá-lo no Delphi e usá-lo a seguir. Porém é um processo bastante incômodo, não acha?

A hierarquia de classes da qual TTrackBar descende é a seguinte:

 

TObject

TPersistent

TComponent

TControl

TWinControl

TTrackbar

 

Como podemos ver, o TTrackBar descende de TWinControl, a qual por sua vez, descende de um TControl que SIM, tem um handle de evento OnClick.

O que isto significa? Que em algum lugar, o criador do TrackBar decidiu não incorporar este evento ao componente.  Certamente imaginou (e com razão) que o evento OnChange seria o bastante.

Como poderíamos então usar este evento

Bem, poderíamos fazer um “hack” da classe e acessar assim a todas as propriedades, eventos e métodos do TrackBar. Por exemplo, criemos um handle de evento para o OnClick de TrackBar1:

 

Esta é a declaração na seção private na declaração do form:

 

private

  procedure Trackbar1Click(Sender: TObject);

  [...]

 

e sua implementação:

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Trackbar1Click(Sender: TObject);

begin

  ShowMessage('TrackBar1 OnClick fired!');

end;

 

Agora, teríamos que designar em runtime, por exemplo, no OnCreate do formulário, algo como:

 

Trackbar1.OnClick := Trackbar1Click;

 

Mas, vemos que não temos disponível o handle de evento do OnClick, pois o mesmo não foi definido na seção public da definição do TrackBar. Para contornar esta limitação, usaremos um “hack” da classe. Declararemos na seção type do formulário:

 

type

  THackClass = class(TTrackBar);

 

  TForm1 = class(TForm)

  [...]

 

E então, poderemos designar o OnClick de nosso TrackBar1 com algo assim (no lugar do código anterior, no evento OnCreate do formulário):

 

THackClass(Trackbar1).OnClick := Trackbar1Click;

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?