On Wed, 31 Jul 2013 10:04:49 +0200 Frederic Da Vitoria <[email protected]> wrote:
> 2013/7/31 Hans-Peter Diettrich <[email protected]> > > > Terry A. Haimann schrieb: > > > > I am sure this is a dumb ?, but I want a subroutine that will change all > >> of the components of a form to Enabled := False. > >> > >> How do I do this? > >> > > > > 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. TComponent does not have Enabled. So the above code does not work. TControl has Enabled. Disabling a control (e.g. no focus, some widgetsets draw them gray) automatically disables child controls. So the easiest way to disable all controls on a form is to set Form1.Enabled:=false. Mattias Mattias -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
