Как сделать Enabled:=false для нескольких Edit oв?

← →
Гость22 (2005-10-04 12:14) [0]

На форме есть 25 Edit"oв. Можна ли "закрыть" (Enabled:=false) их все вместе, чтоб не делать так:
Edit1.Enabled:=false; Edit2.Enabled:=false;...

← →
stone © (2005-10-04 12:16) [1]

for i := 0 to ComponentCount-1 do
if Components[i] is TEdit then
TEdit(Components[i]).Enabled:=false;

← →
Игорь Шевченко © (2005-10-04 12:49) [2]

А можно и так:

procedure EnableControls (const AControls: array of TControl; Value: Boolean);
var
I: Integer;
begin
for I:=Low(AControls) to High(AControls) do
AControls[I].Enabled := Value;
end;

И вызывать как
EnableControls([Edit1,Edit2,Edit3,Edit4.....], false);

Можно тоже самое, но передавать список имен и родительский компонент, внутри вызывать FindComponent.

stone © (04.10.05 12:16) [1]

Олег, тут такой момент - могут быть Edit"ы, которые не следует менять, среди прочих.

> stone © (04.10.05 12:16) [1]
>
> Олег, тут такой момент - могут быть Edit"ы, которые не следует
> менять, среди прочих.

Угу, могут, но в данном случае:

> На форме есть 25 Edit"oв. Можна ли "закрыть" (Enabled:=false)
> их все вместе

Как сделать Enabled:=false для нескольких Edit oв? Найти похожие ветки