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

Одновременное включение свойства readOnly у всех компонентов.   Найти похожие ветки 

← →
str   (2002-06-21 21:25) [0]

Есть кнопочка "РЕДАКТИРОВАТЬ", при нажатии на которую все компоненты становятся доступными для редактирования. Как это сделать?

---

← →
Song ©   (2002-06-21 21:55) [1]

FindComponent или цикл для всех (см. TComponent)

---

← →
Юрий Зотов ©   (2002-06-22 02:39) [2]

> Song © (21.06.02 21:55)

Цикл-то, это да, но разве у класса TComponent есть свойство ReadOnly? Нет. Значит, и переключить его без дополнительного анализа класса не получится. Причем анализ этот будет и громоздким, и, саме главное, неуниверсальнгым - если делать его обычным способои. А чтобы он был компактным и универсальным, надо использовать RTTI.


> str (21.06.02 21:25)

В общем, делается это примерно так. Кнопка Button1 переключает значение свойства ReadOnly на обратное для ВСЕХ имеющихся на форме компонентов, у которых это свойство вообще есть и оно published.

uses
..., TypInfo;

procedure TForm1.Button1Click(Sender: TObject);

procedure SwitchReadOnly(Obj: TObject);
var
P: PPropInfo;
begin
P := GetPropInfo(Obj, "ReadOnly");
if P <> nil then SetOrdProp(Obj, P, Integer(not Boolean(GetOrdProp(Obj, P))))
end;

var
i: integer;
begin
for i := 0 to ComponentCount - 1 do SwitchReadOnly(Components[i])
end;

---

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

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



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