Вопрос : Помощь нужная с процедурой

Hi, процедура по EnableAllRichEdits

The включает или выводит все dbrichedits из строя на tabsheet
every pagecontrol. Но я не хочу использовать PageControl
anymore, я имею как раз компонент dbrichedit теперь. Так have
to процедуры должно изменено позволить/disable dbrichedit. Может кто-то помочь мне?

Thank вы в advanced.

Peter Kiers class= " ясное " >

> " codeSnippet " class=

class= " lineNumbers "

class=

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

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

class=

Ответ : Помощь нужная с процедурой

процедура TMainForm.EnableAllRichEdits (позвольте: Булевско);
var iий: Интежер;
начните
    для I: = 0 к ControlCount - 1 делает
        если управлением [I] будет TDBRichEdit после этого
            Управление [I]. Позволено: = позвольте;
конец;