نکات برنامه نویسی در دلفی

[gholami146]

اين تابع براي عوض کردن مشخصات همه کامپوننت ها در يک فرم است

procedure TForm1.SetReadOnly(Value:boolean) ;

var

  PropInfo  : PPropInfo;

  Component : TComponent;

  i         : integer;

begin

  for i := 0 to ComponentCount - 1 do begin

    Component := Components[ i ];

    if Component is TControl then begin

      PropInfo := GetPropInfo( Component.ClassInfo, 'ReadOnly' );

      if Assigned( PropInfo ) and

         ( PropInfo^.PropType^.Kind = tkEnumeration ) then

        SetOrdProp( Component, PropInfo, integer( Value ) );

    end;

  end;

end;