VPF::Как включить в цикл Edit - Форум программистов

mpdasa

Дата 28.7.2012, 07:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 26.5.2012

Репутация: нет
Всего: нет

У меня в проге много эдитов (162). Как сделать цикл, чтобы в нём менялись эдиты, сначала Edit1, потом Edit2, Edit3 и т. д.
Пока у меня всё линейно и громоздко.

Код



Edit1.text:='';
Edit1.Color:=ClWindow;
Edit1.ReadOnly:=false;
Edit1.TabStop:=true;

Edit2.text:='';
Edit2.Color:=ClWindow;
Edit2.ReadOnly:=false;
Edit2.TabStop:=true;

и т. д. до 162.

И может есть такая возможность, прописать такой шаг: все_эдиты.ReadOnly:=false; Как это записать на делфи?

Это сообщение отредактировал(а) mpdasa - 28.7.2012, 07:12

Ne1tr1n0

Дата 28.7.2012, 08:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 120
Регистрация: 1.3.2009

Репутация: нет
Всего: 8

Код


for i := 0 to Form1.ControlCount - 1 do
  if (Form1.Controls[i] is TEdit) then
  begin
    (Form1.Controls[i] as TEdit).text:='';
    (Form1.Controls[i] as TEdit).Color:=ClWindow;
    (Form1.Controls[i] as TEdit).ReadOnly:=false;
    (Form1.Controls[i] as TEdit).TabStop:=true;
  end;

Как-то так...

northener

Дата 28.7.2012, 17:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20

Цитата(Ne1tr1n0 @ 28.7.2012, 08:28

)

Как-то так

Только если все Edit'ы лежат на самой форме.

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

rodnover

Дата 29.7.2012, 08:38 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 223
Регистрация: 7.4.2009

Репутация: 1
Всего: 10

Использую подобную самописную функцию:

Код


procedure ShowAll(show: Boolean; Objects: array of TControl);
var
  I: Integer;
begin
    for I := Low(Objects) to High(Objects) do
        Objects[i].Visible := show;
end;

begin
  ShowAll(True, [Edit1, Edit2, Edit3, Button7]);
end.

Думаю, преобразовать её на использование ReadOnly проблем не составит. smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »