Questione : Aiuto stato necessario con la procedura

Ciao, la procedura EnableAllRichEdits del

The permette o rende invalidi a tutti i dbrichedits sul tabsheet del
every di un pagecontrol. Ma non voglio usare un PageControl
anymore, io ho appena la componente del dbrichedit ora. Così il have
to di procedura è di permettere a variabile/disable il dbrichedit. Può qualcuno aiutarlo?

Thank voi in advanced.

Peter Kiers class= > " libero " 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

Risposta : Aiuto stato necessario con la procedura

procedura TMainForm.EnableAllRichEdits (permettere a: Booleano);
varietà i: Numero intero;
cominciare
    per la i: = 0 a ControlCount - 1 fa
        se i comandi [i] allora sono TDBRichEdit
            Comandi [i]. Permesso a: = permettere a;
estremità;