listbox runtime com varios eventos em unit

Question

Tenho est� unit abaixo que tenho fora do projeto( para auxiliar).Nesta unit crio um listbox e adiciono v�rios eventos...so que nao estou conseguindo.Quero adicionar os eventos onDrawItem/onDragOver/on...

Massuda · Answer

Devido a detalhes de baixo n�vel relacionados com o modo que objetos s�o implementados em Pascal/Delphi, tratadores de eventos devem ser obrigatoriamente m�todos de uma classe. Assim

procedure desenhaItem(...);
begin
  ...
end;

procedure dragdrop(...);
begin
  ...
end;

procedure  clicou(...);
begin
  ...
end;

n�o servem como tratadores de evento.

Para contornar esse problema/limita��o, voc� poderia criar uma classe derivada de TListBox que implementa o seu tratamento desses eventos... mas, ao inves de implementar os tratadores desses eventos, voc� pode dar um override nos m�todos que geram esse evento. Por exemplo

type
  TMeuListBox = class(TListBox)
  protected
    procedure Click; override;
    procedure DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState); override;
  end;

Note que sua procedure CriaListBox poderia criar um TMeuListBox no luga do TListBox que o efeito seria o que voc� deseja.

Tem um problema apenas: omiti o tratamento de drag&drop porque n�o tenho certeza se a procedure DragDrop (que gera OnDragDrop) � virtual. Verifico e depois completo isto se for necess�rio.

Massuda · Answer

[quote:d9fc6cf52e=�Massuda�]... omiti o tratamento de drag&drop porque n�o tenho certeza se a procedure DragDrop (que gera OnDragDrop) � virtual.[/quote:d9fc6cf52e]A procedure DragDrop � virtual, ent�o voc� poderia implementar seu listbox personalizado assim:[code:1:d9fc6cf52e]type  TMeuListBox = class(TListBox)  protected    procedure Click; override;    procedure DragDrop(Source: TObject; X, Y: Integer); override;    procedure DrawItem(Index: Integer; Rect: TRect;      State: TOwnerDrawState); override;  end;...procedure TMeuListBox.Click;begin  inherited;  // seu c�digo aquiend;procedure TMeuListBox.DragDrop(Source: TObject; X, Y: Integer);begin  inherited;  // seu c�digo aquiend;procedure TMeuListBox.DrawItem(Index: Integer; Rect: TRect;  State: TOwnerDrawState);begin  inherited;  // seu c�digo aquiend;[/code:1:d9fc6cf52e]...

Diogoalles · Answer

Ol� Massuda e Dephi_open,li este t�pico de voces e estou tentando anexar uma ideia no que preciso, se puderem deem uma olhada no topico abaixo e se tiverem qq sugest�o agrade�o[url]//forum.clubedelphi.net/viewtopic.php?t=60550[/url]abra�oDiogo...

F�rum listbox runtime com varios eventos em unit #269094