Скачать: CL | DM;

Как сделать 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 ©   (2005-10-04 12:54) [3]

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c