Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как сделать Enabled:=false для нескольких Edit'oв? [D7, 95/98]

Гость22 © (2005-10-04 12:14:00)
На форме есть 25 Edit'oв. Можна ли "закрыть" (Enabled:=false) их все вместе, чтоб не делать так:
Edit1.Enabled:=false; Edit2.Enabled:=false;...

stone (2005-10-04 12:54:00) [1]

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

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

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

Игорь Шевченко (2005-10-04 12:49:00) [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 (2005-10-04 12:16:00) [3]
for i := 0 to ComponentCount-1 do
if Components[i] is TEdit then
TEdit(Components[i]).Enabled:=false;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »