Одно свойство нескольким элементам

@Digetix · Регистрация: 09.04.2012

Author24 — интернет-сервис помощи студентам

Как сделать и возможно ли вообще применить одно свойство (например, Visible := True) двум и более элементам? Например эдиттекстам

@cotseec · 29.10.2013, 22:32

в дизайнтайме - выделить необходимые элементы и изменить им необходимое свойство (это необходимое свойство должно быть у всех выбранных экземпляров)
в рантайме - в цикле перебирать объекты по некоторому признаку и менять у них необходимое свойство

@Digetix · 29.10.2013, 22:40 **[ТС]**

Сообщение от cotseec

в рантайме - в цикле перебирать объекты по некоторому признаку и менять у них необходимое свойство

А можете привести пример? А то вообще не понял как это. Меня интересует как эти свойства менять в коде

@Arcor · 29.10.2013, 22:45

вот пример, по нажатии кнопки все эдиты и чекбоксы на форме становятся неактивными

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
  for i := 0 to ComponentCount - 1 do
    if (Components[i] is TEdit) or (Components[i] is TCheckBox) then
      begin
        TEdit(Components[i]).Enabled := False;
        TCheckBox(Components[i]).Enabled := False;
      end;
end;

@cotseec · 29.10.2013, 22:49

Delphi

var
  i: integer;
begin
  for i := 0 to ComponentCount - 1 do // цикл по всем компонентам
  begin
    if (Components[i] is TLabel) then // если текущий компонент - TLabel
      if ((Components[i] as TLabel).Tag = 5) then // если у текущего компонента значение Tag равно 5 (некоторый признак)
        (Components[i] as TLabel).Font.Color := $FF00FF; // то меняем  цвет текста метки (текущего компонента)
  end;

@northener · 29.10.2013, 23:00

Сообщение от Arcor

begin TEdit(Components[i]).Enabled := False; TCheckBox(Components[i]).Enabled := False; end;

Достаточно одной таблетки

Delphi

1	TControl(Components[i]).Enabled := False;

@Digetix · 29.10.2013, 23:31 **[ТС]**

Сообщение от Arcor

по нажатии кнопки все эдиты и чекбоксы на форме становятся неактивными

А если нужно несколько эдитов, но не все, а выборочные?

@northener · 29.10.2013, 23:36

Сообщение от Digetix

А если нужно несколько эдитов, но не все, а выборочные?

Если сможешь по каким-то признакам/свойствам отличить выборочные от прочих, то никаких проблем.

29.10.2013, 23:43

Этим признаком может служить Tag.

@Digetix · 29.10.2013, 23:46 **[ТС]**

Сообщение от northener

Если сможешь по каким-то признакам/свойствам отличить выборочные от прочих, то никаких проблем.

Могу отличить. Я знаю их имена

@cotseec · 29.10.2013, 23:47

Сообщение от Digetix

Я знаю их имена

и зачем этот сыр-бор, уже не модно обращаться к объекту по его имени?
в данном случае желательно еще какой-нибудь признак, конечно если имена объектов никак не похожи

@Digetix · 29.10.2013, 23:52 **[ТС]**

Сообщение от cotseec

и зачем этот сыр-бор, уже не модно обращаться к объекту по его имени?

Грубо говоря у меня есть 10 эдитов, имена их знаю. Мне нужно сделать так, чтобы, когда в первый вводят число, некоторые другие стали невидимыми. То есть в edt1 поставили число, а edt3, edt4, edt7, edt9, edt10 - стали не видимыми и всё это в коде

@northener · 30.10.2013, 00:13

Сообщение от Digetix

Могу отличить. Я знаю их имена

Это неудобно. Проверка имен это куча if then else. Если есть несколько эдитов, про которые заранее известно что какие-то их свойства надо одновременно менять, то можно присвоить их свойству Tag некое отличное от 0 значение и тогда проверка будет:

Delphi

1
2
3

for i:=0 to Components.Count -1 do
  if (Components[i] is TEdit) and (TEdit(Components[i]).Tag = 111)
  then TEdit(Components[i]).Enabled:=False;

30.10.2013, 00:22

У ТС наоборот

Delphi

  for I := 0 to Components.Count - 1 do
    if (Components[I] is TEdit) and (TEdit(Components[I]).Tag in [1..10) then
      TEdit(Components[I]).Enabled := False;
  (Sender as TEdit).Enabled := True;

@Digetix · 30.10.2013, 00:39 **[ТС]**

Спасибо, за примеры, но они не работают. Сейчас у меня работает вот так

Delphi

procedure TForm1.sEdit10Change(Sender: TObject);
 
begin
  sEdit11.Visible := True;
  sEdit12.Visible := True;
  sEdit13.Visible := True;
end;

30.10.2013, 00:41

Чтобы примеры работали, нужно всем Edit-ам назначить один обработчик события OnChange.

@Digetix · 30.10.2013, 01:11 **[ТС]**

Сообщение от angstrom

нужно всем Edit-ам назначить один обработчик события OnChange.

Всё равно не работает

30.10.2013, 01:18

Не смеши.

@Digetix · 30.10.2013, 01:27 **[ТС]**

Чем?

30.10.2013, 01:36

1. Назначить всем нужным Edit-ам свойство Tag по-возрастающей, от 1 до 10.
2. Назначить всем нужным Edit-ам один обработчик OnChange, в который вписать код проверки.

@Digetix 106 / 106 / 1 Регистрация: 09.04.2012 Сообщений: 655
	30.10.2013, 01:11 [ТС]	17
	Сообщение от angstrom нужно всем Edit-ам назначить один обработчик события OnChange. Всё равно не работает 0

@Digetix 106 / 106 / 1 Регистрация: 09.04.2012 Сообщений: 655
	30.10.2013, 01:27 [ТС]	19
	Чем? 0

@Digetix 106 / 106 / 1 Регистрация: 09.04.2012 Сообщений: 655
		1
	Одно свойство нескольким элементам 29.10.2013, 22:25. Показов 6468. Ответов 26 Метки нет (Все метки) Как сделать и возможно ли вообще применить одно свойство (например, Visible := True) двум и более элементам? Например эдиттекстам 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	29.10.2013, 22:32	2
	в дизайнтайме - выделить необходимые элементы и изменить им необходимое свойство (это необходимое свойство должно быть у всех выбранных экземпляров) в рантайме - в цикле перебирать объекты по некоторому признаку и менять у них необходимое свойство 0

@Digetix 106 / 106 / 1 Регистрация: 09.04.2012 Сообщений: 655
	29.10.2013, 22:40 [ТС]	3
	Сообщение от cotseec в рантайме - в цикле перебирать объекты по некоторому признаку и менять у них необходимое свойство А можете привести пример? А то вообще не понял как это. Меня интересует как эти свойства менять в коде 0

@Digetix 106 / 106 / 1 Регистрация: 09.04.2012 Сообщений: 655
	29.10.2013, 23:31 [ТС]	7
	Сообщение от Arcor по нажатии кнопки все эдиты и чекбоксы на форме становятся неактивными А если нужно несколько эдитов, но не все, а выборочные? 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	29.10.2013, 23:36	8
	Сообщение от Digetix А если нужно несколько эдитов, но не все, а выборочные? Если сможешь по каким-то признакам/свойствам отличить выборочные от прочих, то никаких проблем. 0

angstrom
	29.10.2013, 23:43	9
	Этим признаком может служить Tag.

@Digetix 106 / 106 / 1 Регистрация: 09.04.2012 Сообщений: 655
	29.10.2013, 23:46 [ТС]	10
	Сообщение от northener Если сможешь по каким-то признакам/свойствам отличить выборочные от прочих, то никаких проблем. Могу отличить. Я знаю их имена 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	29.10.2013, 23:47	11
	Сообщение от Digetix Я знаю их имена и зачем этот сыр-бор, уже не модно обращаться к объекту по его имени? в данном случае желательно еще какой-нибудь признак, конечно если имена объектов никак не похожи 0

@Digetix 106 / 106 / 1 Регистрация: 09.04.2012 Сообщений: 655
	29.10.2013, 23:52 [ТС]	12
	Сообщение от cotseec и зачем этот сыр-бор, уже не модно обращаться к объекту по его имени? Грубо говоря у меня есть 10 эдитов, имена их знаю. Мне нужно сделать так, чтобы, когда в первый вводят число, некоторые другие стали невидимыми. То есть в edt1 поставили число, а edt3, edt4, edt7, edt9, edt10 - стали не видимыми и всё это в коде 0

angstrom
	30.10.2013, 00:41	16
	Чтобы примеры работали, нужно всем Edit-ам назначить один обработчик события OnChange.

angstrom
	30.10.2013, 01:36	20
	1. Назначить всем нужным Edit-ам свойство Tag по-возрастающей, от 1 до 10. 2. Назначить всем нужным Edit-ам один обработчик OnChange, в который вписать код проверки.