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

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