[lazarus] TListBox is not an active control ?

[Fedorax]

Hello

The following code work with Tbuttons, Tedit, Tdbedit, Tdbgrids, etc but 
never works with a Tlistbox.
What's wrong here ?
Thank's

If Self.ActiveControl.ClassType=TListBox then Begin

ShowMessage 
(FindComponent((components[ActiveControl.ComponentIndex]).Name).Name);

End;

_________________________________________________________________
    To unsubscribe: mail [EMAIL PROTECTED] with
               "unsubscribe" as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives