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

ReadOnly для всех.   Найти похожие ветки 

← →
Fast   (2003-12-06 12:23) [0]

Уважаемые мастера! Был пример для установки ReadOnly всех
компонентов формы

procedure SetReadOnly(Obj:TComponent;Value :boolean);
var PropInfo: PPropInfo;
valueInteger : integer;
begin
if Value then valueInteger := 1 else valueInteger := 0;
if not (Obj.ClassInfo = nil) then begin
PropInfo := GetPropInfo(Obj.ClassInfo, "ReadOnly");
if PropInfo <> nil then begin
case PropInfo^.PropType^.Kind of
tkEnumeration : SetOrdProp(Obj, PropInfo, valueInteger);
end;
end;
end;
end;

При компиляции требуется uses TypeInfo.dcu. Его нет. Хотелось бы
продвинуться ...

---

← →
Skier ©   (2003-12-06 14:01) [1]

> При компиляции требуется uses TypeInfo.dcu. Его нет.

Конечно нет. Но есть c:\($Delphi)\Source\Rtl\Common\ TypInfo.pas

---

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

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



Память: 0.44 MB
Время: 0.02 c