Pergunta : Ajuda necessário com procedimento

Olá!, o procedimento EnableAllRichEdits do

The permite ou incapacita todos os dbrichedits no tabsheet do
every de um pagecontrol. Mas eu não quero usar um PageControl
anymore, mim tenho apenas o componente do dbrichedit agora. Assim o have
to do procedimento seja permitir mudada/inutilização o dbrichedit. Pode alguém ajudar-me?

Thank você em advanced.

Peter Kiers class= > " desobstruído " do

> do " codeSnippet " do class= do

class= " lineNumbers " do

class= do

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

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

class= do

Resposta : Ajuda necessário com procedimento

procedimento TMainForm.EnableAllRichEdits (permitir: Bôoleano);
var i: Inteiro;
começar
    para i: = 0 a ControlCount - 1 faz
        se os controles [i] são TDBRichEdit então
            Controles [i]. Permitido: = permitir;
extremidade;