Cuestión : Ayuda necesaria con procedimiento

Hola, el procedimiento EnableAllRichEdits del

The permite o inhabilita todos los dbrichedits en tabsheet del
every de un pagecontrol. Pero no quiero utilizar un PageControl
anymore, yo ahora tengo apenas el componente del dbrichedit. El have
to del procedimiento sea tan permitir cambiada/neutralización el dbrichedit. ¿Puede alguien ayudarme?

Thank usted en advanced.

Peter Kiers class= > " claro " del

> del " codeSnippet " del class= del

class= " lineNumbers " del

class= del

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14:

>procedure notpretty TMainForm.EnableAllRichEdits " del class= " del id= " codeSnippet867377 del

class= del

Respuesta : Ayuda necesaria con procedimiento

procedimiento TMainForm.EnableAllRichEdits (permitir: Boleano);
var i: Número entero;
comenzar
    para i: = 0 a ControlCount - 1 hace
        si los controles [i] entonces son TDBRichEdit
            Controles [i]. Permitido: = permitir;
extremo;