2013/7/31 Hans-Peter Diettrich <[email protected]>
> Frederic Da Vitoria schrieb:
>
> This code disables all components owned by form:
>>
>> for i := 0 to form.Components.Count - 1 do
>> form.Components[i].Enabled := False;
>>
>> Untested, eventually Components.Count has to be replaced by
>> ComponentCount.
>>
>> DoDi
>>
>>
>> Previous answers made me wonder: are you sure you meant "Component", not
>> "Control"? If the form contains non-visual components, this could change
>> the result.
>>
>
> Components[] contains the components *owned* by the form, while Controls[]
> contains only the top-level controls, whose *Parent* is the form.
OK, but since Components can be Controls or not, they could have an Enabled
property or not. So shouldn't the loop actually be something like:
for i := 0 to form.Components.Count - 1 do
if form.Components[i] is TControl
then form.Components[i].Enabled := False;
--
Frederic Da Vitoria
(davitof)
Membre de l'April - « promouvoir et défendre le logiciel libre » -
http://www.april.org
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
