On Sat, 12 Aug 2006 00:01:32 +0200
Fedorax <[EMAIL PROTECTED]> wrote:
> 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);
the above is equivalent to
if (ActiveControl=nil) or (ActiveControl.Name='') then
AccessViolation
else
ShowMessage(ActiveControl.Name);
Has the TListBox a Name?
Mattias
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
